昨日の日付をセルに出力

Sub 昨日の日付をセルに出力()
    Dim 昨日 As Date
    Dim yyyymmdd As String
    
    ' 昨日の日付を計算
    昨日 = Date - 1
    
    ' yyyymmdd形式で文字列に変換
    yyyymmdd = Format(昨日, "yyyymmdd")
    
    ' セルA1に文字列を出力
    Sheets("sheet1").Range("A1").Value = yyyymmdd
End Sub