20120812

Workbook_SheetActivate


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Welcome to " & ActiveSheet.Name, Title:="Workbook_SheetActivate"
End Sub

No comments:

Post a Comment