Inputbox information sent to cell A2

[John]

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

 

[Simon Murphy]

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]

Thank you very much Simon
It works great.
Regards
John