This should do the trick. - John Michl

Sub maketable()
Set SheetList = ActiveWindow.SelectedSheets

For Each sh In SheetList
sh.Activate
Range("B19").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

ActiveWorkbook.Names.Add Name:=Application.InputBox("Enter Table
Name")
Next sh

End Sub