or
Sub gotodate()' testing
x = Day([md]) & " - data"
MsgBox x
Application.Goto Sheets(x).Range("a1")
End Sub

Sub gotodate()
Application.Goto Sheets(Day(Date) & " - data").Range("a1")
End Sub
--
Don Guillett
SalesAid Software

"Sjakkie" wrote in message
...
Never mind...lol


Dim test1
If Day(Date) <= 10 Then
test1 = "0" & Day(Date) & " - Data"
Else
test1 = Day(Date) & " - Data"
End If
Sheets(test1).Activate
Cells(1, 1).Select

"Sjakkie" wrote:

how can i select a worksheet based on todays date.
i have sheets that are name 1-31 in the worksheet.

eg:
"1 - Data" , "2 - Data" , "3 - Data" etc......

How can i select the sheet for the current date...

something like

test1 = day(date) & " - Data"
Sheets(test1).Activate
Cells(1, 1).Select