もっと簡単だったか
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