Replace with copy and paste

[Hansulet]

I need a macro to replace the cells

My code is:
Selection.Replace What:="03.2018", Replacement:="04.2018", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

But instead "03.2018" should be what i copied from the cell A1 and instead "04.2018" should be what i copied from the cell A2

 

[Fazza]

maybe

Selection.Replace What:=Range("A1").value, Replacement:=Range("A2").value, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Hansulet]

Thanks, It's working perfect

 

[Fazza]

Super. regards, Fazza

 

[lotto009]

Dear Fazza
Please help to edit this my code I would like to another sheet my code working but not good
please review again
Thank
Lotto beginner vba

Private Sub CommandButton1_Click()

Worksheets("3G U21").Range("A2:A100000").Select
Selection.Replace what:="U21-", replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Worksheets(ActiveSheet.Index + 1).Select
Worksheets("3G U08").Range("A2:A100000").Select
Selection.Replace what:="U08-", replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Worksheets(ActiveSheet.Index + 1).Select
Worksheets("4G L21").Range("A2:A100000").Select
Selection.Replace what:="L21-", replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

MsgBox "DONE"
End Sub