closing inputbox causing run time error 13

[lezawang]

Hi, if I close the Inputbox without entering anything, excel will give me this error message:
"Run-Time error '13" - Type mismatch". How can I improve the code so I wont get that error message when I close inputbox suddenly. Thank you so much.
+++++

Sub colorall()
Dim x As Integer
x = InputBox("enter sheet")
Workbooks(1).Worksheets(x).Range("D1:f10").Interior.ColorIndex = 11
End Sub

 

[dmt32]

Hi

As you Dim x as Integer I assume that you are entering only Numeric Values for the Sheets Index?

If this is correct, try this:

Sub colorall()
    Dim x As Variant
    Do
        x = InputBox("enter sheet index")
'cancel pressed
        If StrPtr(x) = 0 Then Exit Sub
    Loop Until IsNumeric(x)
    Workbooks(1).Worksheets(CInt(x)).Range("D1:f10").Interior.ColorIndex = 11
End Sub

Dave