In this way one set of subs and functions works on all tables in a workbook that have been flagged to behave in this way. On Then Has Filter = True Exit Function End If Next End Function Sub Test() Msg Box Has Filter(Active Cell. Delete Next End Sub Jan, This is an excellent place for information on the Excel 2007 table Object. Find(s Username) Set o Col = Nothing Set o Col = Active Sheet.
One way to overcome this is by changing the style of the cells (see this article) in the table back to the Normal style. The little macro below fixes that by first making a copy of the normal style, setting its Number checkbox to false and then applying the new style without number format to the table. Named rnages appear as a database table, but not Excel 2007 tables. Good morning - maybe this is a stupid question, but how do I use vba to obtain the table name that the activecell is in? In the table is another field called [Access Level]. Select End With ' No go in 2003 '2: with the range object 'select an entire column (data only) o Sh. Select 'select an entire column (data plus header) o Sh. Select 'select entire data section of table o Sh. Or what is the best way to handle diffrent tables or sheets in a XLA. Add method: Sub Table Inserting Examples() 'insert at specific position Selection. Function Get Insert Row(obj List As List Object) As Range obj List. Run-time error - 2147319765 Automation error Element not found. Thanks Regards S Srinivas Hi Jan, Thanks for the hint! How can I reach the sheets in the xla by a self written function or procedure? like this: Sub Change Table Styles() ' No Go in Excel 2003 Active Workbook. This is because you've just changed a built-in tablestyle. You might need to work with specific parts of a table. If you ask me, I find it strange that the Workbook is a tablestyles' parent, whereas built-in table styles behave as if being bound to the Application object. Here is a couple of examples on how to achieve that. Select ' Select just the data of the entire table .