Reference needed?

[John Keith]

On Error Resume Next
Dim path As String
Dim fileName As String
If Application.Name = "Microsoft Excel" Then
path = Application.ActiveWorkbook.path
fileName = Application.ActiveWorkbook.Name
ElseIf Application.Name = "Microsoft Access" Then
path = Application.CurrentProject.path
fileName = Application.CurrentProject.Name
Else
MsgBox Application.Name & " not currently supported", vbCritical,
"Automated File Transfer Module"
bShellFTP = False
Exit Function
End If
On Error GoTo 0