sheet tab value/nav menu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value < "" Then ActiveSheet.Name = Range("A1").Value
End Sub
Will do the Sheet Tab Names 4 u !
"Gordon" wrote in message
...
Folks...
Bit of ambitious challenge here!
I have 15 sheets. In cell A1 of each sheet the user will enter a name eg
John. I want the sheet tab for sheet 1 to change to say John. Sheet 2 tab
say
Phil etc...
Also, in cell A2 I'm trying build a drop down navigation menu that uses
the
names of the sheet tabs?
I'm struggling at the moment! Any help appreciated...
Gordon...
|