Sub ki147()

  Range("F10:F12").Select
  Selection.Replace What:="FGH", Replacement:="aaa", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
  Range("B10").Select
End Sub



Sub ki147a()
Cells(10, 6) = "ABCDCFGHIJ"
Cells(11, 6) = "FGHIJKLMNO"
Cells(12, 6) = "PQRSTUVFGH"

    Range("F10:F12").Select
    Selection.Font.Size = 12
    Cells(10, 2).Select
End Sub