Run time error 438 object doesnt support this property or method

[vbacoder12]

Hi ,
I cannot copy my code into the message at this time. I am going to type n i really apologize. When using code I get the error in the subject. Also it puts the table in a style which is not in the code. Debug highlights set tbl line. Which starts set tbl and ends at 21) if this is too hard to read it can upload image. If I can

Sub FormatATable()
Dim tbl As ListObject
Dim rng As Range
Set rng = Range("A6") Settbl=ActiveSheet.ListObjects.Add(xlSrcRange, Range("A6:Q9000"), , xlYes).Header = No.TableStyle=Green Table Style Medium 21)
End Sub

 

[vbacoder12]

No

 

[Alex Blakenburg]

That is the only way I have been able to replicate what you are getting.
Select A6, then Ctrl+Shift+<Right Arrow>. Is only Row 6 selected or are multiple rows selected ?

 

[vbacoder12]

That is the only way I have been able to replicate what you are getting.
Select A6, then Ctrl+Shift+<Right Arrow>. Is only Row 6 selected or are multiple rows selected ?

It was my mistake your code worked fine I header listed as no

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.