Text in gesamter Arbeitsmappe ersetzen

Sub GlobalErsetzen()
    Dim suchen As String, ersetzen As String, ws As Worksheet
    suchen = InputBox("Zu suchender Text:")
    If suchen = "" Then Exit Sub
    ersetzen = InputBox("Ersetzen durch:")
    If MsgBox("In der gesamten Arbeitsmappe ersetzen?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.Replace What:=suchen, Replacement:=ersetzen, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Next ws
End Sub