Macro to Find and Replace

[becca0903]

I am trying to make a macro find and replace one week with another. I have the two cells to reference the two weeks and I created a macro but it doesn't work. It just highlights the cells I need replaced and that is all. Not sure what I am doing wrong.

Sub FindReplace()
'
' FindReplace Macro
'

'
WeekNum1 = Cells(5, 15) 'previous week location
WeekNum = Cells(4, 15) 'location of week

Columns("A:L").Select
Cells.Replace What:="Week " & WeekNum1 & " ", Replacement:="Week " & WeekNum & " " , LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub

[walruseggman]

Try this instead:

Please Login or Register  to view this content.

[becca0903]

I tried it but it is just sitting there. It's like it doesn't know where to pull from. When I run it with Week 6 and Week 7 it works perfectly, but with the Week &WeekNum&, it doesn't work. But, I need the macro to look at what the current week is because it will be constantly changing.

[walruseggman]

Post your workbook or a sample workbook demonstrating what you want, please.

[becca0903]

I am trying to get the Week #'s in the formulas to update with find and replace each new week, which can be changed in cell O4.

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[becca0903]

Thank you. That worked perfectly!!!

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. Please mark this thread as solved.