Поместите это в код рабочего листа:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call showMsg
End Sub
Поместите это в свой модуль:
Sub showMsg()
Dim data As String
data = InputBox("Hello", "Title")
End Sub
Вы также можете использовать другие события рабочего листа или рабочих книг, например (он будет запускать макрос всякий раз, когда вы открываете файл)
Private Sub Workbook_Open()
Call showMsg
End Sub