I currently have the following code set up which displays a message box if
the csv I'm importing has greater than 256 fields. Is there a way to also
check if the csv has greater than 65,536 rows?

fileLocation = Application.GetOpenFilename("ASCII
(*.csv;*.txt;*.dat),*.csv;*.txt;*.dat,All Files (*.*),*.*")

filein = FreeFile()
Open fileLocation For Input As filein
Line Input #filein, l
If (Len(l) - Len(Replace(l, ",", "")) 255) Then
MsgBox ("Cannot import, input file has more than 256 fields")
Exit Sub
End If


Thanks

--
Regards,
Dave