Inputbox Error
Posted by Harry Pilauf on February 18, 2002 5:23 PM
When I run the following code in a procedure , the input box comes up and if I press the cancel button I get an Run-time error "type mismatch"
I need to do the "set" part as I want to go to that cell further down the procedure - so as to delete the row where the cell was
Can anyone please help
Thanks
Harry
Sub delete_rows()
Dim anssort As Integer
Set myrange3 = Application.InputBox(prompt:="Please point to the row you want deleted", Left:=350, Top:=150, Type:=8)
If myrange3 = False Then
anssort = MsgBox("Do you wish to sort the data now ?", vbYesNo, "Sort ?")
If anssort = vbNo Then
endproc
Else: tim = 5
End If
Else
myrange3.Select
myrange3.EntireRow.delete shift:=x1up
End If
End Sub
Posted by Damon Ostrander on February 19, 2002 1:50 PM
Hi Harry,
There is no way to get the InputBox to "gracefully" exit on cancel when Type:=8. So what you have to do is this:
Dim anssort As Integer
Dim MyRange3 As Range
On Error Resume Next
Set MyRange3 = Application.InputBox(prompt:="Please point to the row you want deleted", Left:=350, Top:=150, Type:=8)
On Error GoTo 0
If MyRange3 Is Nothing Then
anssort = MsgBox("Do you wish to sort the data now ?", vbYesNo, "Sort ?")
End If
Keep Excelling.
Damon
