Sub od. Funktion nicht gefunden

Sub oder Funktion nicht gefunden (Fehlermeldung). Wie referenziere ich die Tabelle oder was mache
ich falsch ?
Schon mal Danke und Gruß aus Wildeshausen

Sub Form_Load()
sPath = App.Path & "\liste.xls"
Set Excel = CreateObject("Excel.Application")
Excel.Visible = False
Excel.Workbooks.Open sPath
LFlag = True
If Not LFlag Then Exit Sub
LastRowInColumn 'Aufruf der Funktion
End Sub




Public 

Sub LastRowInColumn()
'Letzte  Z e i l e  mit Daten in vorgegebener Spalte
Dim intCol As Integer       'Spalte
Dim lngRow As Long          'Zeile
intCol = 1
With Worksheets(1)
'Wenn Zellen mit Daten im Tabellenblatt enthalten sind...
If Application.WorksheetFunction.CountA( _
.Columns(intCol).EntireColumn) > 0 Then
lngRow = .Cells(.Rows.Count, intCol).End(xlUp).Row
' o d e r  auch...
'lngRow = .Cells(65536, intCol).End(xlUp).Row
MsgBox "Die letzte Zeile, die in Spalte " & intCol & _
" Daten enthält, ist die Zeile " & lngRow, _
vbOKOnly + vbInformation, _
Title:="Tabellenblatt: " & .Name
Else
MsgBox "Die Spalte " & intCol & " enthält keine Daten!", _
vbOKOnly + vbInformation, _
Title:="Tabellenblatt: " & .Name
End If
End With
End Sub


----

----