I have a program in which I need to select multiple consecutive sheets and
perform a specific function. The sheets are sequential starting with Sheet4
all the way through Sheet23. I don't want to be concerned about the 'actual'
sheet names that the user may change periodically---therefore, I need to
reference the sheets based upon their underlying sheet reference as noted
above. Currently I am trying to use this code, but am getting a 'Type
Mismatch' error. Can someone tell me what I am doing wrong?

Sheets(Array(Sheet4, Sheet5, Sheet6, Sheet7, Sheet8, Sheet9, _
Sheet10, Sheet11, Sheet12, Sheet13, Sheet14, Sheet15, Sheet16, _
Sheet17, Sheet18, Sheet19, Sheet20, Sheet21, Sheet22, Sheet23)).Select

You could do a For Next statement something like this:

For i = 4 to 23

Sheets(i).select
'your code that does whatever goes here.
Next i
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"jday" wrote:

I have a program in which I need to select multiple consecutive sheets and
perform a specific function. The sheets are sequential starting with Sheet4
all the way through Sheet23. I don't want to be concerned about the 'actual'
sheet names that the user may change periodically---therefore, I need to
reference the sheets based upon their underlying sheet reference as noted
above. Currently I am trying to use this code, but am getting a 'Type
Mismatch' error. Can someone tell me what I am doing wrong?

Sheets(Array(Sheet4, Sheet5, Sheet6, Sheet7, Sheet8, Sheet9, _
Sheet10, Sheet11, Sheet12, Sheet13, Sheet14, Sheet15, Sheet16, _
Sheet17, Sheet18, Sheet19, Sheet20, Sheet21, Sheet22, Sheet23)).Select

In general macros do not operate on multiple sheets at once. So as a guess
what you are about to do will not work anyways. That being said Selecting a
sheet has an option argument to not deselect the previous sheet. So something
like this...

Sheet1.Select
Sheet2.Select Replace:=False
Sheet3.Select Replace:=False

--
HTH...

Jim Thomlinson


"jday" wrote:

I have a program in which I need to select multiple consecutive sheets and
perform a specific function. The sheets are sequential starting with Sheet4
all the way through Sheet23. I don't want to be concerned about the 'actual'
sheet names that the user may change periodically---therefore, I need to
reference the sheets based upon their underlying sheet reference as noted
above. Currently I am trying to use this code, but am getting a 'Type
Mismatch' error. Can someone tell me what I am doing wrong?

Sheets(Array(Sheet4, Sheet5, Sheet6, Sheet7, Sheet8, Sheet9, _
Sheet10, Sheet11, Sheet12, Sheet13, Sheet14, Sheet15, Sheet16, _
Sheet17, Sheet18, Sheet19, Sheet20, Sheet21, Sheet22, Sheet23)).Select

In general that code is a bad idea. It uses the index property of the sheet
to make the selection. When sheets are deleted or added the indexes get
changed and your code will now be operating on the wrong sheets...
--
HTH...

Jim Thomlinson


"Michael Arch" wrote:

You could do a For Next statement something like this:

For i = 4 to 23

Sheets(i).select
'your code that does whatever goes here.
Next i
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"jday" wrote:

I have a program in which I need to select multiple consecutive sheets and
perform a specific function. The sheets are sequential starting with Sheet4
all the way through Sheet23. I don't want to be concerned about the 'actual'
sheet names that the user may change periodically---therefore, I need to
reference the sheets based upon their underlying sheet reference as noted
above. Currently I am trying to use this code, but am getting a 'Type
Mismatch' error. Can someone tell me what I am doing wrong?

Sheets(Array(Sheet4, Sheet5, Sheet6, Sheet7, Sheet8, Sheet9, _
Sheet10, Sheet11, Sheet12, Sheet13, Sheet14, Sheet15, Sheet16, _
Sheet17, Sheet18, Sheet19, Sheet20, Sheet21, Sheet22, Sheet23)).Select