Dim MonthYear As String, Title As String
Dim ChangeMonth As Variant
MonthYear = "Enter the Month and Year of this Report"
Title = "Update Month"
ChangeMonth = Application.InputBox(MonthYear, Title)
With Worksheets("Detail").Range("A4")
.Value = ChangeMonth & " " & .Text
End with
With Worksheets("Summary").Range("A4")
.Value = ChangeMonth & " " & .Text
End With
--
Regards,
Tom Ogilvy



"MacroLearning" wrote:

I figured out how to change the cell value via an input box. How can I write
this macro so that it will input the string in the cell before text already
there.

Here is what I have:

Dim MonthYear As String, Title As String
Dim ChangeMonth As Variant
MonthYear = "Enter the Month and Year of this Report"
Title = "Update Month"
ChangeMonth = Application.InputBox(MonthYear, Title)
Worksheets("Detail").Range("A4").Value = ChangeMonth
Worksheets("Summary").Range("A4").Value = ChangeMonth

I'd like to add something like

ChangeMonth 2007

Thanks