'アクティブブックにタイトルを設定します。
Sub ブックのタイトルを設定()
ActiveWorkbook.Title = "VBA集"
End Sub
'アクティブブックのサブタイトルを設定します。
Sub ブックのサブタイトル()
ActiveWorkbook.Subject = "ヒント集"
End Sub
'アクティブブックの作成者を設定します。
Sub ブックの作成者()
ActiveWorkbook.Author = "NOMBO"
End Sub