Public Function ListCount(lst As ListBox) As Long
    With lst
        If .ColumnHeads Then
            ListCount = IIf(.ListCount =  0 ,  0 , .ListCount -  1 )
        Else
            ListCount = .ListCount
        End If
    End With
End Function