Find/Replace in Specific Workcheet

[FShaikh]

I am writing a macro to find and replace a certain string within a certain worksheet within a workbook. The macro I have found is below, but searches the entire workbook. Please can someone advise how to amend this to only look in one particular worksheet?


Sub FindReplaceAll()

Dim sht As Worksheet
Dim fnd AsVariant
Dim rplc AsVariant

fnd = "April"
rplc = "May"

ForEach sht In ActiveWorkbook.Worksheets
sht.Cells.Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht

EndSub

[p45cal]

Try:

Sub FindReplaceAll()
Dim fnd
Dim rplc

fnd = "April"
rplc = "May"
ActiveWorkbook.Sheets("TheNameOfYourSheetHere").Cells.Replace what:=fnd, Replacement:=rplc, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Obviously, adjust TheNameOfYourSheetHere

[FShaikh]

Thanks p45cal - I will try this when I am back in the office later this week. Will keep you posted!

[FShaikh]

p45cal - Tried your macro and it worked a treat. Many thanks.