Sheets(Array(Variavel)).Select

Sub ArrayVariavel()
Plan1.Activate
Num = Plan1.Range("B1").Value
Dim guardar() As String
ReDim guardar(1 To Num)
For linha = 1 To Num
guardar(linha) = Cells(linha, 1).Text
Next linha
Sheets(guardar).Select
Sheets(guardar).Copy
End Sub