Left hanging

[Pat]

The following code was kindly supplied to me but it fails to run, in fact it
hangs. Anyone know what might be wrong with it.

Private Sub CommandButton1_Click()
Dim rng As Range, lastrow As Long
lastrow = Cells(Rows.Count, 4).End(xlUp).Row
Set rng = Range("D1")
Do While UCase(rng) <> "G" And rng.Row <= lastrow
rng = rng.Offset(1, 0)
Loop
If UCase(rng.Value) = "G" Then
rng.EntireRow.Insert
End If

End Sub

 

[Norman Jones]

Hi Pat,

Try changing:

rng = rng.Offset(1, 0)

to:

Set rng = rng.Offset(1, 0)