InputBox if Cancel

[buzz71023]

How do I get my procedure to exit if cancel is clicked in the InputBox?

Sub FindTest_Click()

Dim FINDTEST As Variant
Dim TestNameRng As Range
Dim CurrTest As Variant

Set TestNameRng = Range("G7:ProdCodeDesc")
FINDTEST = InputBox(" Enter the name of the test, ***EXACTLY*** as it appears on the data sheet", _
    "DELETE TEST", "Enter TEST NAME Here", 6500, 3000)
            
Application.ScreenUpdating = False

With TestNameRng.Select
    Selection.find(What:=FINDTEST, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select

Application.ScreenUpdating = True

Set CurrTest = ActiveCell

If MsgBox("Is " & CurrTest & "  the correct test to delete from the data sheet", vbYesNo) = vbYes Then

CurrTest.EntireColumn.Delete

Else
Exit Sub
End If
End With
End Sub

So far I have tried

Dim FINDTEST As Variant
Dim TestNameRng As Range
Dim CurrTest As Variant

Set TestNameRng = Range("G7:ProdCodeDesc")
If FINDTEST = InputBox(" Enter the name of the test, ***EXACTLY*** as it appears on the data sheet", _
    "DELETE TEST", "Enter TEST NAME Here", 6500, 3000) = 0 Then
Exit Sub
    Else
           
Application.ScreenUpdating = False

With TestNameRng.Select
    Selection.find(What:=FINDTEST, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select

Application.ScreenUpdating = True

Set CurrTest = ActiveCell

If MsgBox("Is " & CurrTest & "  the correct test to delete from the data sheet", vbYesNo) = vbYes Then

CurrTest.EntireColumn.Delete

Else
Exit Sub
End If
End With
End If

and

If FINDTEST = InputBox(" Enter the name of the test, ***EXACTLY*** as it appears on the data sheet", _
    "DELETE TEST", "Enter TEST NAME Here", 6500, 3000) = False Then
    Exit Sub
        Else
         
Application.ScreenUpdating = False

 

[tlowry]

If FINDTEST = InputBox(" Enter the name of the test, ***EXACTLY*** as it appears on the data sheet", _
    "DELETE TEST", "Enter TEST NAME Here", 6500, 3000) = "" Then Exit Sub

InputBox returns a "" if cancel is entered.

 

[AlphaFrog]

Sub FindTest_Click()

Dim FINDTEST As [COLOR=#ff0000]String[/COLOR]
Dim TestNameRng As Range
Dim CurrTest As Variant

Set TestNameRng = Range("G7:ProdCodeDesc")
FINDTEST = InputBox(" Enter the name of the test, ***EXACTLY*** as it appears on the data sheet", _
    "DELETE TEST", "Enter TEST NAME Here", 6500, 3000)
[COLOR=#ff0000]If FINDTEST = "" Then Exit Sub[/COLOR]

 

[Michael M]

If FINDTEST = False Then Exit Sub

 

[buzz71023]

Thanks AlphaFrog, that worked perfectly. Thankstlowry for the response, I was still having the same problem with you code. it was continuing on to

 If MsgBox("Is " & CurrTest & "  the correct test to delete from the data sheet", vbYesNo) = vbYes Then

of the code! Thanks for your help though, it is appreciated.