Close input box

[annadinesh]

Dear Experts

I am using this formula and it was working fine.

Dim FindString As String
Dim rng As Range

BackInp:
FindString = InputBox("Enter VIN Number to Search")
If Len(FindString) < 17 Then
MsgBox "VIN Number must be 17 Charachter"
GoTo BackInp
end if

but input box was not close on pressing Cancel or cross button

i want that if i press cancel button on input box it should close


Please advice



Regards

Dinesh

 

[kevin9999]

That's because you have a permanent 'loop' with this line:

GoTo BackInp

which means you will always go back to this line:

BackInp:

unless the input is exactly 17 characters long.
Advice: remove the GoTo line

 

[RoryA]

You can test for nothing being entered separately - for example:

Dim FindString As String
Dim rng As Range

BackInp:
FindString = InputBox("Enter VIN Number to Search")
If Len(FindString) = 0 Then
   Exit Sub
ElseIf Len(FindString) < 17 Then
MsgBox "VIN Number must be 17 characters"
GoTo BackInp
End If

 

[annadinesh]

You can test for nothing being entered separately - for example:

Dim FindString As String
Dim rng As Range

BackInp:
FindString = InputBox("Enter VIN Number to Search")
If Len(FindString) = 0 Then
   Exit Sub
ElseIf Len(FindString) < 17 Then
MsgBox "VIN Number must be 17 characters"
GoTo BackInp
End If

WORKS, THANKS