Add sheet name to sheet

[Johnnyb]

I am using a macro connected to a button to create & rename new sheet
from a template which works fine, I am having great dificulty addin
the name of each sheet to a cell in the sheet via the macro.

Any help would be greatly appreciated.

Regards,

Johnny

 

[Frank Kabel]

Hi
try something like the following

with activesheet
..range("A1").value=.name
end with

 

[Johnnyb]

That's great Frank,

Thanx,

Regards,

Johnny

 

[Julian Wesson]

Dear Johnny

That is just what I am looking for, I need to name a number of sheets from
a list in the first sheet. This is to enable me to quote a customer.
Also lookup from that list quantities and names of components.

Having completed the individual sheet post the result back to the list.