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

--
halem
-----------------------------------------------------------------------
halem2's Profile: http://www.excelforum.com/member.php...nfo&userid=993
View this thread: http://www.excelforum.com/showthread.php?threadid=31376