Please Help I am a Beginner

In the code below I need to make For all you needs - contact Brian" red and bold also I need to link it to a html page - please help


Sub Insert10()
'
' Insert10 Macro
' Macro recorded 3/9/2002 by David Lisowski
'
' Keyboard Shortcut: Ctrl+i
'
Position = 10
Count = 0
RangeString = "A0"

Do While Count < 100
RangeString = "A" & Position
Range(RangeString).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "For all you needs - contact Brian"
Position = Position + 10
Count = Count + 1
Loop

End Sub

[NateO]

This post has been posted at least 3 other times and responded to. No need to respond.