Workbook Open Event

S

Stuart

User opens a workbook with a single sheet.
If I know the sheetname, how may I code:

If the activesheet's name is "abc" Then
in the workbook open event.

Regards
 
O

Owen

'Try Pasting this on the thisworkbook window in VBE

Private Sub Workbook_Open()

Dim lMsg As Long
Dim strSheet As String

strSheet = "Sheet1"

If ActiveSheet.Name = strSheet Then
lMsg = MsgBox("The Active Sheet is: " &
ActiveSheet.Name)
Else
lMsg = MsgBox("The Active Sheet is: " &
ActiveSheet.Name & Chr(10) & Chr(10) & "Not: " & strSheet)
End If

End Sub
 
Top