I tried to post on the original thread but did not seem to work.

Here it is again:

Here's the code that I am actually using (I changed the cell reference A10
to B19).

Option Explicit
Sub maketable3()
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("b19").End(xlDown).Row
LastCol = .Range("b19").End(xlToRight).Column
Set RngToName = .Range("b19", .Cells(LastRow, LastCol))
RngToName.Name = Application.Range("SheetNames").Cells(I,
1).Value

End With
End If
Next sh
End Sub

Bob asked: When you get the error, hover over the variables LastRow and
LastCol and see what the values are.

LastRow=109 Last Column=6

Bob asked: Also type ?RngToName.Address in the immediate window and see what
it returns.

?RngToName.Address
$B$19:$F$109

Bob asked: Finally, what is in A1:A12 in that problem sheet.

Nothing. Completely blank.

Thanks again.

Carl,

Those values look okay. The only other thing to look at is the value being
assigned.

What does

Application.Range("SheetNames").Cells(I, 1).Value

hold at the point of error?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"carl" wrote in message
...
I tried to post on the original thread but did not seem to work.

Here it is again:

Here's the code that I am actually using (I changed the cell reference A10
to B19).

Option Explicit
Sub maketable3()
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("b19").End(xlDown).Row
LastCol = .Range("b19").End(xlToRight).Column
Set RngToName = .Range("b19", .Cells(LastRow, LastCol))
RngToName.Name = Application.Range("SheetNames").Cells(I,
1).Value

End With
End If
Next sh
End Sub

Bob asked: When you get the error, hover over the variables LastRow and
LastCol and see what the values are.

LastRow=109 Last Column=6

Bob asked: Also type ?RngToName.Address in the immediate window and see
what
it returns.

?RngToName.Address
$B$19:$F$109

Bob asked: Finally, what is in A1:A12 in that problem sheet.

Nothing. Completely blank.

Thanks again.