Workbook_SheetActivate

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