Public Sub AccessProcedure1(caller As Object)
If TypeName(caller) = "Workbook" Then Debug.Print caller.Name, caller.FullName
End Sub
'if you have set a reference to Excel lib from within Access
Public Sub AccessProcedure2(caller As Excel.Workbook)
If TypeOf caller Is Workbook Then Debug.Print caller.Name, caller.FullName
End Sub