G
Guest
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
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