use the following line:-
Activecell.Resize(1,3).font.bold = true
After
ActiveCell.Offset(0, 2).Value = "Hyperlinks"