Worksheet names

[MJA]

Hi,

I have several sheets and in range A1 are standing names.
E.g. Sheet 1 range A1 = Mike
Sheet 2 range A1 = John
Etc.

I want to change the sheet names into the names standing in A1.
How do I do that in VB!

[Luke van der Steen]

In code you could use the following:
withing the 'This workbook' form add the following sub:
private sub workbook_sheetchange (byval sh as object, byval target as range) 'excel sets the values in parenthesis automatically.
if target.column = 1 and target.row = 1 then activesheet.name = target.value
endsub

[Luke van der Steen]

By the way, this does change the sheetname everytime you change a1. In the target, the column is the "a" and the row is the "1" so if you decide to use another location, just change tose column and row values.