InputBox - Cancel Loop

[adambc]

I know how to loop if the user doesn't enter anything begore pressing OK on the InputBox ...

And I know how to Exit Sub if the user presses Cancel ...

But I want to combine the two ie if at any point in the loop the user decides they want to cancel (eg they can't find the value they need) then Exit Sub is invoked ...

Getting in a bit of a mess because both involve = FALSE!

Thanks ...

 

[Peter_SSs]

See if this would help

Sub Test()
  Dim sCode As Variant

  sCode = Application.InputBox("Enter value")
  If TypeName(sCode) = "Boolean" Then
    'Cancel or the top right X has been clicked
  ElseIf Len(sCode) = 0 Then
    'Blank entry has been made
  Else
    'Entry has been made
  End If
End Sub

 

[AlphaFrog]

Cancel would = False
No entry and click OK would = Empty or = ""

Sub test()
    Dim n As Variant
    Do
        n = Application.InputBox("Enter something", "This is an example", Type:=2)
        If n = False Then Exit Sub ' User canceled then exit sub
        If n = Empty Then Exit Do ' User entered nothing then exit loop
        
        'Test n here
    Loop
    MsgBox "User entered nothing"
End Sub