Looping through sheets help

[apunc1]

Hi,
The following loop works as intended

Please Login or Register  to view this content.

it loops through each spreadsheet in the workbook, putting the name of the sheet in A2.

The loop below DOES NOT work as intended.

Please Login or Register  to view this content.

it loops through the code correctly, but ON THE SAME SHEET, not looping THROUGH the sheets. It just keep coping D and E to F, deleting D and E, over and over on the same sheet.

what is the problem?

thanks.

[Norie]

You are missing worksheet references for Columns, Range etc.

Try this.

Please Login or Register  to view this content.

[apunc1]

Thanks Norie. This appears to be working.
What I'm really trying to do is loop through all worksheets in a workbook, find the words Volume and Revenue in the header row, copy and paste those columns to the column after the last column of data (lastusedcolumn+1) and delete the original columns.

below is my attempt, but it just loops through the columns on one spreadsheet again.

Please Login or Register  to view this content.

You are missing worksheet references for Columns, Range etc.

Try this.

Please Login or Register  to view this content.

[apunc1]

ok I can get it to do everything I need except copy the entire column. It just copies the header into the first column after the last column of data. also i can't get it to delete the original "volume" column.

Please Login or Register  to view this content.

[Norie]

Does this work?

Please Login or Register  to view this content.

[apunc1]

Thanks. It works on some of the sheets but not all. Also, it's deleting thewrong column. I want to rename the new Volume column "Total Volume" and remove the old "volume" column.

[Norie]

Is there always a volume column on a worksheet?

Can you attach a sample workbook?

[apunc1]

yes. There are about ten worksheets with silmilar column headings. All Have a Volume and Revenue Column. It's an export from an Access crosstab, so the volume and revenue totals are in the wrong place. I want them at the end of the other colums.

Is there always a volume column on a worksheet?

Can you attach a sample workbook?

[apunc1]

I can't get the file to upload. Sorry

edit: it's also coping and pasting the wrong volume column. I actually don't know what it's pasting!

[apunc1]

The vbscript below works for one sheet only. When I try to loop the sheets, the loop doesn't work so that's why i'm trying to do this in VBA. I was trying to follow the basic structure of the vbscript, since it works, but add the looping sheets.

Please Login or Register  to view this content.

[apunc1]

this code does what i want. I had curCol defined incorrectly, so it was doing weird things. thanks for your help.

Please Login or Register  to view this content.