Excel-Makro-Befehl für das "Ersetzen"-Popup

Option Explicit
'Private Sub Workbook_Open()
'  Call xxxxx_gegen_Tagesdatum_InFormelnErsetzen
'End Sub

Sub xxxxx_gegen_Tagesdatum_InFormelnErsetzen()
' _xxxxx auf dem Tagesblatt gegen _TT.MM.YY in Formeln ersetzen
' Blattnamen sind zweistellig mit führender 0
' Werte sind zulässig von 01 bis 31
'
' 0.  Abfrage, ob _xxxxx in Formeln gegen _DD.MM.YY erstzt werden soll
'     Nein -> Abbruch
' 1.  Blatt mit dem Tagesnamen öffen
' 1.1 Wenn Blatt nicht vorhanden ist, erfolgt eine entsprechende Meldung
' 3.  xxxxx in Formeln diese Tabellenblattes durch DD.MM.YY ersetzen

  Dim ws As Worksheet, zelle As Range, ret As Integer, s_tmp As String
  Dim s_BN_Heute As String, s_Datum_Heute, pos1 As Integer
  Const c_Suchstring = xxxxx
  
 ->Tage zweistellig mit führender 0 für Namen des Tagesblattes
  s_BN_Heute = Format(Now, Dd)->Tage zweistellig mit führender 0
 ->Ersetzenstring DD.MM.YY
  s_Datum_Heute = Format(Now(), Dd.mm.yy)
  
 -> 0.  Abfrage, ob _xxxxx in Formeln gegen _DD.MM.YY erstzt werden soll
 ->     Nein -> Abbruch
  If 6 <> MsgBox(Soll auf Tabellenblatt  & Format(Day(Now()), 00) & _
          vbLf & in den Formeln der Defaultstring-> & c_Suchstring &->  & _
          vbLf & durch das Tagesdatum ersetzt werden ? & _
          vbLf & vbLf & c_Suchstring &  -->  & s_Datum_Heute, _
          vbQuestion + vbDefaultButton1 + vbYesNo) Then Exit Sub
  
 ->1. Blatt des aktuellen Tages öffnen
  On Error GoTo ws_NichtVorhanden
  Set ws = ActiveWorkbook.Worksheets(s_BN_Heute)
  On Error GoTo 0
  ws.Activate
  
 ->2. _xxxxx in Formeln diese Tabellenblattes durch _TT.MM.YY ersetzen
  With ws.UsedRange
    Set zelle = .Find(c_Suchstring, LookIn:=xlFormulas, MatchCase:=True)
      Do While Not zelle Is Nothing
         ->gefundene Formel auslesen
          s_tmp = zelle.Formula
          pos1 = InStr(1, s_tmp, c_Suchstring)
          s_tmp = Left(s_tmp, pos1 - 1) & s_Datum_Heute & _
                  Right(s_tmp, Len(s_tmp) - (pos1 + Len(c_Suchstring) - 1))
 ->Wenn die Formel einen Dateiverweis enthält der durch das Ersetzen
 ->auf eine nicht vorhandene Datei verweist, öffnet sich der Auswahldialog
 ->zur Auswahl eine andere Datei.
 ->!!! Dieser Alarm wird abgeschalten                     !!!
 ->!!! und damit die Änderung ohne Nachfrage durchgeführt !!!
 ->In der Zelle erscheint #BEZUG!, wenn der Verweis ins Leere zeigt
          Application.DisplayAlerts = False
         ->geänderte Formel zuweisen
          zelle.Formula = s_tmp
          Application.DisplayAlerts = False
          Set zelle = .FindNext(zelle)
      Loop
    On Error Resume Next: Set zelle = Nothing: On Error GoTo 0
  End With
  Set ws = Nothing
Exit Sub

ws_NichtVorhanden:
  MsgBox (Es werden Blattnamen->01' bis->31' erwartet! & _
          vbLf & vbLf & _
          Blatt-> & s_BN_Heute &-> konnte nicht geöffnet werden.)
End Sub

Public Sub ErsetzenDialogAufrufen()
  Const c_Suchstring = xxxxx
  
 ->Ersetzen-Dialog öffnen (STRG+H)
  ActiveWorkbook.Application.SendKeys (^h)
 ->Feld->Suchen' mit Suchbegriff füllen
  ActiveWorkbook.Application.SendKeys (c_Suchstring)
 ->mit Tab auf Feld->Ersetzen' weiterschalten
  ActiveWorkbook.Application.SendKeys ({TAB})
 ->Feld->Ersetzen' mit aktuellem Datum füllen
  ActiveWorkbook.Application.SendKeys (Format(Now(), Dd.mm.yy))
End Sub

Public Sub ErsetzenDialogAufrufen2()
  Const c_Suchstring = xxxxx
  
 ->Dialog ersetzen aufrufen
 ->Aufrufparameter (Stellungsparameter):
 ->find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte
  Application.Dialogs.Item(xlDialogFormulaReplace).Show _
      c_Suchstring, Format(Now(), Dd.mm.yy), , , , True
End Sub