This works for me:

Sub tablenamer()
Dim x As String
x = InputBox("Enter the table name")
ActiveCell.CurrentRegion.Name = x
End Sub

In ,
lior03 typed:
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