This Workbook_Open event code should do what you want...

Private Sub Workbook_Open()
Dim SH As Worksheet
For Each SH In Worksheets
If "WE " & Format(Now + 6 - Weekday(Now) - _
7 * (Weekday(Now) = 7), "m-d") = SH.Name Then
SH.Select
Exit For
End If
Next
End Sub

Rick


"KathyN" wrote in message
...
You are right - it's a dash, 5-9

"Rick Rothstein (MVP - VB)" wrote:

How are you getting the forward slash into the worksheet's name (as far
as I
know, it is an invalid character for use there)?

Rick


"KathyN" wrote in message
...
Rick,

The worksheets are named 'WE m/d' corresponding to each Friday, i.e. WE
5/9.
The dates are in cells B3:G3 in each sheet, and are formatted m/dd/yyy.

Thanks

"Rick Rothstein (MVP - VB)" wrote:

How are the worksheets named? Which "same row" are the dates in? Which
cells? The more information you give us about your set up, the better
able
we are to figure out what to tell you; otherwise, we are reduced to
pure
guessing and those guesses usually turn out to be wrong.

Rick


"KathyN" wrote in message
...
Hello

I have a workbook with a sheet for each week of the year. The dates
are
in
the same row in each sheet. I would like to be able to have the
workbook
open to the sheet that contains today's date.

Thanks for your help!