Code:
Sub whichApp()
dim sApp as String
sApp = Application.Name
msgBox "Application is " & sApp
End Sub
Have a test for the value of sApp. It will be either "Microsoft Word" or "Microsoft Excel." Or, you could pass sApp as a parameter to your called procedure.