i really don't know what you're trying to do, but i'll throw this out as an
idea. probably a better way if you clarify things a little

Sub test2()
Dim nval As Long
With Worksheets("data")
nval = Application.InputBox("Enter Number", "What Number",
Type:=1)
With Worksheets("Desc").Range("A2")
.Value = nval
.Cut
End With
.Activate
.Range("M132").Select
.Paste
End With
End Sub



--


Gary


"Curt" wrote in message
...
have the following macro built with excel want to stop in (A2) to enter text
then return to M132. This is test range to establish function Have (A2)
formated for given amount of text. Not sure of code to allow text entry Runs
thru without stop.
Thanks


Range("N132").Select
Sheets("Desc").Select
Range("A2").Select

ActiveCell.FormulaR1C1 = ""
Range("A2").Select
Selection.Cut
Sheets("Data").Select
Range("M132").Select
ActiveSheet.Paste
End Sub