Solved: Auto Plot Chart routine fails

[SamT]

[vba]
For Each NameCell In NameRange.Cells
Set WS = ThisWorkbook.Worksheets(NameCell.Value)
[/vba]
There are 65K plus NameCells. Only one has a value. The second time thru, you're trying to Set Ws to Null.

Try this
[vba]
yaddah, yaddah
If NameRange.Cells.Count > 65000 Then Set NameRange = Range("A4")
For Each NameCell In NameRange.Cells
Set WS = ThisWorkbook.Worksheets(NameCell.Value)
yaddah, yaddah
[/vba]