Loop Through Column Headings and Delete Columns

[mikey3580]

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.

[alansidman]

What is not working here? Are you getting an error message. Perhaps load a sample file that represents an actual file.

[mikey3580]

Hi,
Getting runtime error 424 - Object Required
On line

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

Appreciate the help!

[alansidman]

Try taking out .value from the line of code so it reads

Please Login or Register  to view this content.

[mikey3580]

That's it! Thanks for that!

[Alf]

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