Would like macros to be applied to all tabs of the workbook

[lilaznjc]

Second new thread since I joined today. I'm not knowledgeable in VBA. Would like to replace the "Page:" word on each tab of the workbook. Below is recording I did that only works on the active page I'm on.

Sub ReplacePage()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
With sht
Rows("2:2").Select
Selection.Replace What:="Page:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next sht
End Sub

 

[njimack]

Sub ReplacePage()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
With sht

[COLOR="Red"].[/COLOR]Rows("2:2").Replace What:="Page:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next sht
End Sub

If you use With/End With, you also need to qualify the ranges by placing "." before the range.

 

[VoG]

Try

Sub ReplacePage()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
    With sht
        .Rows(2).Replace What:="Page:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
Next sht
End Sub

 

[lilaznjc]

Wow - this forum is awesome, thank you two for the help.