もっと簡単だったか

http://q.hatena.ne.jp/1271889995
改めて考えてみるともっと簡単でよかったので書いておきます。

Sub CangePoint()
    'ポイントを変える文字列を指定してください。
    Const key As String = "abc"
    'ポイントを指定してください
    Const fontSize As Integer = 14
    Application.ReplaceFormat.Font.Size = fontSize
    Cells.Replace What:=key, Replacement:=key, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub