エクセルのマクロで取ってみたのですが、（以下にコードを載せてみました。）
これでは指定されたものにしか変換されないので、自分で指定したように変えたいのですが、
どのようにしたらよいのでしょう？？
どなたかお教えください。お願いします。

Range("B2:AH34").Select
    With Application.ReplaceFormat.Font
        .Name = "AR P明朝体U"　　　←ここを可変にしたいです。
        .FontStyle = "太字 斜体"　　←ここを可変にしたいです。
        .Size = 10　　　　　　　　　←ここを可変にしたいです。
        .Subscript = False
    End With
    Selection.Replace What:="日", Replacement:="日", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

…衝撃的な質問ですね。とりあえず
.Name = Text1.Text
.FontStyle = Text2.Text
.Size = CInt(Text3.Text)

もう少し高度にしたいなら、ヘルプで CommonDialog1.ShowFont について調べて見て下さい。
それよりも、VBからVBAを操作する場合、マクロそのままのコードをVBから使用すると
Excelのプロセスが終了しない原因になる場合があります。
詳しくは、左のメニューの Excel & Word 関係 の最初の２項をよく読んで下さい。
今回の Range("B2:AH34").Select　この部分等が該当します。

るしぇさん、花ちゃんさんありがとうございます。一回その方法で調べてみます。
ありがとうございます。