Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Left hanging
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
selection hanging | New Users to Excel | |||
Excel hanging... | Excel Discussion (Misc queries) | |||
Macro hanging up on 2nd use and later. | Excel Discussion (Misc queries) | |||
Excel hanging up | Excel Programming | |||
Hanging Instances Of EXCEL.EXE? | Excel Programming |