Find second blank row

S

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 -
 
B

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
 
Top