Workbook_SheetActivate


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

Popular posts from this blog

Comments