worksheet labels based on cell results

M

Mitch

How can I build a macro to use the contents of several cells in a column to
label a corresponding number of worksheets with their contents. Ideally this
would also build links to the tabs so that a user could click on a specific
cell (in that column) and be redirected to the corresponding worksheet

Thanks,

Mitch
 
F

Frank Kabel

Hi
for labeling the tab try something like
activesheet.name=activesheet.range("A1").value

For the second question try using a Hyperlink (Insert - Hyperlink)
 
G

Gord Dibben

Mitch

Sub NameWS()
'name sheets with list in column A on Sheet(1)
For i = 2 To Worksheets.Count
'change to 1 if want Sheet(1) name changed also
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next
End Sub

Note: must be at least enough names in Column A list to cover the number of
sheets in workbook.

Gord Dibben Excel MVP
 
Top