Try...

Sub RenameSheets()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Name = Replace(wks.Name, "GGN", "DDN", , 1)
Next 'wks
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion