Prompt for Value

[halem2]

Hi:

I have the following code wich clears the cell value depending on th
number selected. In this case is number 6.

Sub DeleteRow()
Range("A1").Select
Do
If Application.IsText(ActiveCell) = "6" Then
ActiveCell.ClearContents
Application.a
Else
ActiveCell.ClearContents
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
End Sub

How can I promt the user with a pop up window and use whatever the use
types as the value?

thanks a million in advance! :confused

 

[Bob Phillips]

Sub DeleteRow()
Range("A1").Select
Do
ans = Inputbox ("Input number please")
if and <> "" Then
If IsNumeric(ans) Then
If Application.IsText(ActiveCell) = ans Then
ActiveCell.ClearContents
Application.a
Else
ActiveCell.ClearContents
ActiveCell.Offset(1, 0).Select
End If
End If
End If
Loop Until ActiveCell = ""
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)