Formatting code for "Back To Index" Sheet

[kdlenort]

Hi all,
Looking for some assistance to add formatting to the following excerpt from the code within a sheet named Index.
[With wSheet
.Range("A1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
"Index", TextToDisplay:="Back to Index"]

Each sheet within the workbook will have a hyperlink Back to index added to Cell A1 when I insert the Index sheet into a workbook.

My issue is the hyperlink font on all the sheets except for the Index sheet always reverts back to Courier size 8.

All my work is done in Times New Roman Font so I would like the hyperlink to follow suit and stay Times New Roman size 8.

Any assistance is GREATLY appreciated Thanks!!

 

[njimack]

Something like this:

With wSheet
    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
    "Index", TextToDisplay:="Back to Index"
    With .Range("A1")
        .Name = "Start" & wSheet.Index
        With .Font
            .Name = "Times New Roman"
            .Size = 8
        End With
    End With
End With

 

[kdlenort]

Thanks njimack Your Good the code works perfectly

 

[njimack]

No problem, glad it worked.