シート名をコピーした際に、参照シートを自動で変更する

Question

前日分のシート名を自動で入れたい

Excel日計処理で前日分の集計と本日の集計を加算して、収入累計を計算しています。
VBAで翌日分のシートを作っているのですが、毎回手動で参照するシート名を変更しているのを自動で変更したく思います。

例）
シート0708の収入累計には('0707!AD17+T17)というように前日シート名を自動で式に入れたい。

翌日のシート名は以下のVBAを設定してシートをコピーして使っています。

翌日のシート作成

Sub 月次更新()
    'バックグラウンドで作動
    Application.ScreenUpdating = False

    'シート名用の変数定義
    Dim D As String

    'シート名を翌日分の数字4桁にする
    D = Format(Date + 1, "MMDD")
 
    '右端のシートをコピーして新しいシートを一番右に配置
    Worksheets(Worksheets.Count).Copy after:=Worksheets(Worksheets.Count)

    '新シートにさっき決めた名前をつける
    ActiveSheet.Name = D
     
End Sub

Answer 1

こんな感じでどうでしょうか。

    '数式を置換
    Dim B  As String, A As String
    B = Format(Date - 1, "'MMDD'")
    A = Format(Date, "'MMDD'")
    Dim c As Range
    For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, B, A)
    Next

Comments

[Yukidarumannnnn]

有難うございます。

シートをコピーした後に For Each構文入れる感じでしょうか。

試してみます。