I use this macro on one of my workbooks and it worked awesome - it creates
tables from selected worksheets and names them according to a list of names.

Asuming that the list is named SheetNames, then

Sub maketable2()
Dim SheetList As Sheets
Dim RngToName As Range
Dim LastRow As Long
Dim LastCol As Long
Dim NameToUse As String
Dim sh As Worksheet
Dim i As Long

Set SheetList = ActiveWindow.SelectedSheets
For Each sh In SheetList
i = i + 1
If Application.Range("SheetNames").Cells(i, 1).Value < "" Then
With sh
LastRow = .Range("a10").End(xlDown).Row
LastCol = .Range("a10").End(xlToRight).Column
Set RngToName = .Range("a10", .Cells(LastRow, LastCol))
RngToName.Name =
Application.Range("SheetNames").Cells(i,1).Value
End With
End If
Next sh
End Sub

I've tried to use this same macro to create another workbook and it it gets
hung up he

RngToName.Name = Application.Range("SheetNames").Cells(i,1).Value

The text that appears when I hover the curser over the line is:

RngToName=<Application-defined or object-defined error

The only difference I can tell between this new workbook and the other
workbook is the "SheetNames".

Any Thoughts ?

Thank you again.