Amigo,
Você já tentou usar isso?

Sub SelecionaPlanilhas()
Worksheets.Select
End Sub

Acho que vai te ajudar.

Neste caso vai selecionar todas as planilhas que tem no arquivo.
O que preciso é que selecione somente algumas planilhas conforme valor em determinadas células.
Por exemplo:
Células/Status:
A1 = VERDADEIRO
A2 = FALSO
A3 = FALSO
A4 = VERDADEIRO
A5 = VERDADEIRO

Neste caso, ao clicar no botão de macro "SelecionarPlan", selecionaria simultaneamente as planilhas: Plan1, Plan4 e Plan5

Experimente assim

Sub selecionarplanval()
Dim LRow As Long, NbPlan As Long
Dim MyArray() As Variant
LRow = Sheets("Plan1").Cells(Cells.Rows.Count, "A").End(xlUp).Row

NbPlan = 0
For i = 1 To LRow

If Sheets("plan1").Range("a" & i).Value <> "" Then
ReDim Preserve MyArray(NbPlan)
np = Sheets("plan1").Range("a" & i).Value
MyArray(NbPlan) = np
NbPlan = NbPlan + 1
End If
Next
Sheets(MyArray).Select
Sheets(MyArray).Copy

End Sub

Puts! quase deu certo.
É que o nome das planilhas são do tipo: laranja, banana, macã, ou seja, não é um sequencial e sim uma palavra chave.

Reinaldo, funcionou! Era só fazer uns ajustes.

Muito obrigado.