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

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

closer exam your idea. Is there a way the control amount that is entered into
the input box. need to have 6 rows with 39 letters wide. This will fit into
my 3x5 cards that I need to print info onto. This procedure you offer could
be assigned to each cell of 125 without having to go to second wks.
Thanks


"Gary Keramidas" wrote:

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