Run-time error 424 accessing a table

[JenniferMurphy]

I found code examples online for accessing various parts of a table using the ListObjects object. I am doing something wrong. The Set TableData statement gets a run-time error 424.

Sub WtdRtg()

Const rnTable As String = "Tbl"   'The name of the main table
Dim TblData
TblData = Range(rnTable).Value

Dim TableData As ListObject

'Run-time error 424
Set TableData = ActiveSheet.ListObjects(rnTable).Range.Select

Dim TableHdr As ListObject

Set TableHdr = ActiveSheet.ListObjects(rnTable).HeaderRowRange.Select

End Sub

 

[JenniferMurphy]

Re: Your feedback post.
Wow that a big call but thank you, I really appreciate the sentiment.

You absolutely deserve it.

Hopefully I can leave it up to you to validate the output but your use of arrays looks fine to me.

The pseudo table in 16:21 is the validator. It does the calculations manually. The numbers in D17:G20 are the individual ZScores. The numbers in C17:C20 are the weighted ratings, which are what the macro is supposed to calculate. As you can see, they are identical! Yea!!

Again, thank you. This code is a million times better than anything I would have come up with on my own and in a fraction of the time.

 

[Alex Blakenburg]

My pleasure.