Do without look error : When running this code I get a error that is "loop without do". I want if "case vbno" is selected then it returns to the original input box. If it the user selects "case vbyes" I want it to highlight then cell then loop back to do and return to original input box. If cancel is selected I want it to exit completely.







    Sub find_highlight3()
    Dim w As Variant
    Dim FoundCell As Range
    Dim ans As String
    
    
    
    
    Do
    
    
    
    
    w = InputBox("What to find?")
    
    Cells.Find(What:=(w), After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    With Selection.Interior
    
    
    
    Select Case MsgBox("Hellow", vbYesNoCancel)
    
    Case vbNo
    
    
    
    
    
    
    
    Loop
    
    
    
    
    
    Case vbYes
    
    .ColorIndex = 6
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    
    
    Loop
    
    
    
    
    
    
    
    Case vbCancel
    
    End Select
    
    End With
    End Sub

