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

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)