macro to cycle through randomly named worksheet in workbook

Hi,

I'm trying to get a macro to cycle through all the sheets in a work book which have a value in cell Q2.

For each cell it should perform a simple function involving entering some code and basic copying and pasting. It should then copy and paste some cells into another (already opened) workbook, 30aug.xlsx, before returning to the original workbook and cycling through to the next sheet.

I wrote the following piece of code:

Please Login or Register  to view this content.

the first error I encounter is a next without for (applied to the for contained within the if code), however, even when i remove the if code and ask it to cycle through every worksheet in the workbook it just keeps looping through the same sheet over and over, never progressing to the next sheet.
My worksheets have random names as oppose to sheet1, sheet2, sheet3 etc... is this the problem.

I'm an novice, what am I doing wrong?

Thanks for all and any help
Ben

Thanks Dave,

I tried running it and nothing happens, so I ran it through step by step and it runs through, the first sheet has nothing in Q2 so it correctly jumps to the endif, it then goes onto next ws and cycles back to the start but remains on the same worksheet and cycles through the code again.

Any idea why it is not moving on to the next worksheet in the active workbook? The worksheets are named randomly, is this a problem?

Hi Thanks again for all your help everyone.

I think the problem was that it kept writing the copied data into the same 3 cells on the 30aug.xlsx workbook (A2, B2 and C2) instead of writing it into the next row each time. I plugged a bit of my old messy code in and its working.

Final code was

Please Login or Register  to view this content.

Thanks both for the help getting the code right and for the advice in general on how to write these things more accurately.