'Module1
Sub MyProc()
End Sub

'Module2
Sub MyProc()
End Sub

'Module3
Sub F()
    Call MyProc '=> Ошибка
    Call Module1.MyProc '=> OK
End Sub

Sub GetWorkbookExtension(sWorkbookPath As String, ByRef sExtension As String)
    'Находим расширение файла
    Dim i
    For i = Len(sWorkbookPath) To 1 Step -1
        If Mid$(sWorkbookPath, i, 1) = "." Then
            sExtension = Right$(sWorkbookPath, Len(sWorkbookPath) - i)
            Exit For
        End If
    Next
End Sub

Sub TestSubAsFunc()
    Dim sExt As String
    'Используем процедуру как функцию
    Call GetWorkbookExtension(ThisWorkbook.FullName, sExt)
    If Len(sExt) = 0 Then
        MsgBox "Расширение файла не найдено"
    Else
        MsgBox "Расширение файла: " & sExt
    End If
End Sub