Cell selection changing after macro runs to blue hyperlink

Hi everyone,



Facing an issue with excel, below is some code I use to create a list of tabs and create a fast link back to say a home page within the workbook.



[/CODE]For Each wSheet In Worksheets
If wSheet.Name <> Me.Name And wSheet.Visible = xlSheetVisible Then
n = n + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
.Hyperlinks.Add anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"

End With

Me.Hyperlinks.Add anchor:=Me.Cells(n, 5), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet[CODE]



The problem I have is that if I was in sheet one, and I had selected an item from a data validation list, when I go to the tab that fires this macro, as soon as I return to sheet 1 my selection has turned from arial 11 say to calibri 11 blue underscore.



Its very frustrating, I can code round it by using a sheet activation and selecting all individual cells and forcing them to say Arial 11, but its not the answer to this, and I'm going to start getting code clash.

It seems like it is changes the style type automatically


Any help appreciated,



Simon