sub tablenamer
dim x as string
x = InputBox("Table name is ")
if not x ="" then
Activecell.CurrentRegion.Name = x
End if
ActiveCell.CurrentRegion.Select
end sub

To see the name, look in the name box or do Insert=Name=Define

--
Regards,
Tom Ogilvy


"lior03" wrote in message
...
sub tablenamer
dim x as string
x= inputbox("tablename is
activecell.currentregion.select
selection.currentregion.name
end sub
my question- how can i see the name i have chosen for the range in
"tablename is" - why does the excel name box show x rather
then the name i gave the range?
moshe



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/