Find second blank row

[singlgl1]

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


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

 

[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]

thanks, I'll give it a try