Find second blank row

[singlgl1]

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

[Bob Umlas]

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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

[singlgl1]

thanks, I'll give it a try!