Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro loop with messagebox
Hi- can you please help me fix the following macro. It "hangs" when
"no" is chosen at the messagebox. How do I make it go to the next cell in the "if" statement? Sub DeleteSearchTerm26() Dim c As Range With ActiveSheet.Range("A:A") Do Set c = .Find("by", LookIn:=xlValues, lookat:=xlPart, _ MatchCase:=False) If c Is Nothing Then Exit Do c.Select If MsgBox("Delete entire row?", vbYesNo) = vbYes Then c.EntireRow.Delete Else ActiveCell.Offset (0,1).Select Loop End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
MessageBox | Excel Programming | |||
Multiline Messagebox in VBA | Excel Programming | |||
messagebox macro | Excel Programming | |||
messagebox help | Excel Programming | |||
messagebox help | Excel Programming |