Hi Everyone
I know nothing in macro except the recorder, below is something I am trying
to do.
first part to erase cells is working fine but the inputbox I can't seem to
make it work.
Can someone help me please.
Regards
John

Range("R65:R103").Select
Selection.ClearContents
Range("e6").Select
Dim myCell As Range
myCell = InputBox("What Year to display?")
Set myCell = Worksheets("Sheet1").Range("A2")

End Sub

Very close John
try:

Dim myCell As Range
Set myCell = Worksheets("Sheet1").Range("A2")
myCell.value = InputBox("What Year to display?")

Cheers
Simon
Blog: www.smurfonspreadsheets.net



John wrote:
Hi Everyone
I know nothing in macro except the recorder, below is something I am
trying to do.
first part to erase cells is working fine but the inputbox I can't seem
to make it work.
Can someone help me please.
Regards
John

Range("R65:R103").Select
Selection.ClearContents
Range("e6").Select
Dim myCell As Range
myCell = InputBox("What Year to display?")
Set myCell = Worksheets("Sheet1").Range("A2")

End Sub

Thank you very much Simon
It works great.
Regards
John
"Simon Murphy" wrote in message
...
Very close John
try:

Dim myCell As Range
Set myCell = Worksheets("Sheet1").Range("A2")
myCell.value = InputBox("What Year to display?")

Cheers
Simon
Blog: www.smurfonspreadsheets.net



John wrote:
Hi Everyone
I know nothing in macro except the recorder, below is something I am
trying to do.
first part to erase cells is working fine but the inputbox I can't seem
to make it work.
Can someone help me please.
Regards
John

Range("R65:R103").Select
Selection.ClearContents
Range("e6").Select
Dim myCell As Range
myCell = InputBox("What Year to display?")
Set myCell = Worksheets("Sheet1").Range("A2")

End Sub