Need hyperlink in macro

[Guest]

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

 

[Barrie Davidson]

On 2002-03-11 17:18, Anonymous wrote:
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

<pre>
ActiveCell.FormulaR1C1 = "For all you needs - contact Brian"
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:= _
"http://www.mrexcel.com"
With ActiveWorkbook.Styles("Hyperlink").Font
.Bold = True
.ColorIndex = 3
End With
</pre>

Regards,

 

[NateO]

Answered in the other post...Nice Barrie. Hey, Anon, if you post this a few more times, maybe we can get more people to try and help solve this quandary.

Cheers, Nate
This message was edited by NateO on 2002-03-11 17:36