Function FindBlankRow() As Integer
Dim First As Boolean
First = True
For i = 1 To Rows.Count
If IsEmpty(Cells(i, 1)) Then
If First Then
First = False
Else
FindBlankRow = i
Exit Function
End If
End If
Next i
End Function

Bob Umlas

"singlgl1" wrote in
message ...

Can someone edit this so that it will find the second blank row instead
of the first blank row? Thanks


Function FindBlankRow()
x = 2
Do While ActiveSheet.Cells(x, 1) < ""
x = x + 1
Loop
FindBlankRow = x - 1


--
singlgl1
------------------------------------------------------------------------
singlgl1's Profile:
http://www.excelforum.com/member.php...o&userid=26389
View this thread: http://www.excelforum.com/showthread...hreadid=488365