Declaring and seting table range as a variable

[seragrefaat]

I have this line in my code:

Set MyRange = ActiveSheet.ListObjects("Table1").HeaderRowRange

I want to change the range to be the selection which comes from the code below:

With ActiveSheet.ListObjects("Table1").Range
      .Offset(0, 1).Resize(, .Columns.Count - 1).Select
End With

Can I have some help how to do that?

Thanks

 

[Fluff]

How about

With ActiveSheet.ListObjects("Table1").Range
    Set MyRange=.Offset(0, 1).Resize(, .Columns.Count - 1)
End With

 

[seragrefaat]

How to write the Set phrase after your code?

 

[seragrefaat]

Ohh Sorry, I just noticed it, Let me try that

 

[seragrefaat]

How about

With ActiveSheet.ListObjects("Table1").Range
    Set MyRange=.Offset(0, 1).Resize(, .Columns.Count - 1)
End With

Thanks, It worked

 

[Fluff]

You're welcome & thanks for the feedback.