本日の曜日を取得する方法がわかりません。初歩的な質問で恐縮ですがご教授ください。
Format(Date,"aaaa") --> 火曜日"aaaa" の所を w , aaa , ddd , dddd の4種類に入れ替えて試して下さい。Format 関数に付いては他も調べて置くと良いですよ。
個人的には、 Weekday(Date)の方が良いかと思います。戻り値は、定数 vbSunday 〜 vbSaturday のいずれかです。
※作成する前に利用規約をご確認ください。