Sub FindLessThanZero()
Dim rngeCell As Range, rngeFound As Range
For Each rngeCell In Range("A1:A1329")
If rngeCell.Value < 0 Then Set rngeFound = rngeCell: Exit For
Next rngeCell
If Not rngeFound Is Nothing Then
MsgBox "The first cell with a value less than zero is " & rngeFound.Address
Else
MsgBox "No cells were found in the specified range."
End If
End Sub