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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Left hanging
Hi Pat,
Try changing: rng = rng.Offset(1, 0) to: Set rng = rng.Offset(1, 0) --- Regards, Norman "Pat" wrote in message ... 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 |
Reply |
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 |