Use Application.InputBox to solicit input from the user, then put this input
value into the target cell.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Curt" wrote in message
...
have built following routines need to be able to input text into 'A2' When
it
is sized and formatted it will be right for a mail merge Not knowledgeable
of
how to pause for input then continue. Want one procedure as it will be
called
many times. From different locations.
Hope you can understand me
Thanks



Option Explicit
Sub final()
'
' Desc_1 Macro
' Macro recorded 1/11/2007 by Default
With Range("N16").Select 'Active cell later
Sheets("Desc").Select
Range("A2").Select This is cell I want to input text to
save in next with
Rows("2:2").RowHeight = 78
Columns("A:A").ColumnWidth = 39
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Locked = True
Selection.FormulaHidden = False
End With


'
' Desc_2 Macro
' Macro recorded 1/11/2007 by Default
'
With Range("A2").Select
Selection.Cut
Sheets("Data").Select
Range("M16").Select 'Active cell Later offset
ActiveSheet.Paste
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = False
End With
Selection.Locked = True
Selection.FormulaHidden = False
End With
End Sub