組み込みダイアログボックス（セルの書式設定（フォント））

Application.Dialogs(xlDialogFontProperties).Show