Block If without End If

i cannot seem to find the problem



Public Sub SaveData(LV As ListView, FilePath As String)
Dim l As Long, intFF As Integer
intFF = FreeFile
With LV
If .ListItems.Count > 0 Then



Open FilePath For Append As #intFF
For l = 1 To .ListItems.Count
Print #intFF, .ListItems(l).Text & ";" & .ListItems(l).SubItems(1) & .ListItems(1).SubItems(2) & ";" & .ListItems(1).SubItems(3) & ";" & .ListItems(1).SubItems(4) & ";" & .ListItems(1).SubItems(5)


Close #intFF
End If

End With

End Sub