PPRuNe Forums - View Single Post - Another Excel Question

29th January 2008 | 10:24

#8 (permalink)

MOSTAFA

Joined: Nov 2003

Posts: 567

Likes: 4

From: Hereford UK

This one?

Private Sub Workbook_Open()

Dim strDate As String
strDate = Format(Now(), "DD")
For Each SHT In Sheets

If InStr(1, SHT. Name, strDate, vbBinaryCompare) <> 0 Then
Sheets(SHT.Name).Activate
End If
Next SHT

End Sub

Reply

0