Function Find4InARow() As Boolean
Dim c As Range
Dim count As Integer
For Each c In ActiveSheet.Range("A1:A52")
If Len(c.Value) > 0 Then
count = count + 1
If count > 3 Then
Find4InARow = True
Exit Function
End If
Else
count = 0
End If
Next
Find4InARow = False
End Function