This extract from a Macro I created in 2000 needs to be simplified as
there are 12 options.

Range("D8:D27").Select
Selection.Replace What:="NOV", Replacement:="DEC", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False
Range("D8:D27").Select
Selection.Replace What:="OCT", Replacement:="NOV", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False

I have also used the same approach to replace data in other
situations. How can this be achieved?

TIA


--

~~~~

Gerry

~~~~~~~~
Enquire, plan and execute.
Stourport, England
~~~~~~~~~~~~~~~~~