Sub JustTheOnesIWant()
'Selects all sheets between two designated sheets.
'Jim Cone - San Francisco, USA - May 2006
Dim objShts As Excel.Sheets
Dim varArry As Variant
Dim lngStart As Long
Dim lngEnd As Long
Dim N As Long
lngStart = Worksheets("SheetStart").Index
lngEnd = Worksheets("SheetFinish").Index
If lngEnd < lngStart Then
MsgBox "Please reorder sheets. "
Exit Sub
End If
ReDim varArry(lngStart To lngEnd)
For N = lngStart To lngEnd
varArry(N) = Worksheets(N).Name
Next
Set objShts = Sheets(varArry)
objShts.Select
Set objShts = Nothing
End Sub
------------
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
"Gizmo63"
wrote in message
Hi folks,
Is there a way of selecting a variable number of worksheets in
VB so that I
can apply a simultaneous fix. I can't do the sheets 1 at a time as the fix
includes inserting some columns and the references will go screwy.
It is possible to do manually so should be possible in
VB. The equivalent of
holding the control key and clicking on the tabs you want.
I would be looking at 'selecting' all the tabs between "START" and "END"
(these will have user defined names so cannot be specified in the macro) and
then 2 additional pre-defined tabs.
Any ideas anyone?
Giz