現在の日付を取得して、スラッシュ抜きのYYYYMMDD形式に変換し、メッセージボックスに表示するマクロです。
Sub eight_digits_date() 'マクロのタイトルを「eight_digits_date」と名づける
Dim Date8 As String 'String(文字列)型の変数「Date8」を宣言
Date8 = Format(Now, "yyyymmdd") 'Now関数を使って、yyyymmdd形式で日付を取得し、変数「Date8」に格納
MsgBox Date8 'メッセージボックスで変数「Date8」の中身を表示
End Sub