ブック全体置換

Public Sub ブック全体置換(ByRef ブック As Workbook, ByVal 何を As String, ByVal 何に As String)
    Dim シート As Worksheet

    For Each シート In ブック.Worksheets
        Call シート全体置換(シート, 何を, 何に)
    Next
End Sub

Public Sub シート全体置換(ByRef シート As Worksheet, ByVal 何を As String, ByVal 何に As String)
    シート.Cells.Select
    Selection.Replace What:=何を, Replacement:=何に, LookAt:=xlPart, _
                        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                        ReplaceFormat:=False
End Sub