Hello from Steved

The below works fine but I would like to bold the,

"REDUCED PEAK 2008 - 2009" please,

I've not sure where to insert Selection.Font.Bold = True

as it is not working, What do I need to do please to have this working, I
thankyou.

Sub REDUCEDPEAK()
Cells.Replace What:="Auckland", Replacement:="REDUCED PEAK 2008 - 2009", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:= _
False, ReplaceFormat:=False
Selection.Font.Bold = True
Selection.Copy
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
ActiveWorkbook.Close SaveChanges:=False
ActiveCell.Offset(2, 0).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub