Loop Through Column Headings and Delete Columns

Hello,

I have a bunch of different files that are all uniquely named with each of the column headings in 30 Columns starting in Column C.

I am trying to loop through row 1 where the column headings are and delete the columns that do not match the file name. Then move to the next file.

Below is what I have but I am a novice and can't get it work.

Any help would be appreciated!

Thanks

Please Login or Register  to view this content.

Hi,
Getting runtime error 424 - Object Required
On line

Cells(1, i).Value.EntireColumn.Delete

Appreciate the help!

That's it! Thanks for that!

Some small additions / changes you can do.

You have "Dim'ed" all your variables except i so you could add

Please Login or Register  to view this content.

and you could change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Alf