Hi everyone,
I am trying to set the autofilter property on for a group of
consecutive columns.


I guess this is done using:
excel_app.Selection.AutoFilter = True


The problem is with the selection of columns. The left top cell (E6) is
known but the right top cell has to be 10th from right (same row)


So, I have been trying code like:
excel_app.Range(Sheet.Cells(E, 6), Sheet.Cells(x, 6)).Select filling x
with different things, none of which seem to work.


Can anyone here suggest how to do this?


I am new to this, so kindly explain in terms of the following
variables:


Set excel_app = CreateObject("Excel.Application")
Set excel_wbk = excel_app.Workbooks.Open(fileName)
Set excel_wks = excel_wbk.Sheets(1)
Set pivotTable = excel_wks.PivotTables(1)
Thanks in advance for the help.

To ascertain the tenth column from the right I would use something like this...

sub myProc()
    myCol = Range("IV6").End(xlToLeft).Column - 10
    Range("E6", Cells(6, myCol)).Select
    Selection.AutoFilter
end sub

I wouldn't bother even trying to get involved in the Set examples shown above because you would only normally use in real life the createobject code when trying to control excel from another office application such as word (called Automation).

Hope this has been helpful.

Cheers

Matthew