napr. takto by to slo:
Dim aSelect() As String
y = 0
For x = 1 To Sheets.Count
If Sheets(x).Name <> "Sheet1" And Sheets(x).Name <> "Sheet2" Then ReDim Preserve aSelect(y): aSelect(y) = Sheets(x).Name: y = y + 1
Next
Sheets(aSelect).Selectcitovat
Dim aSelect() As String
y = 0
For x = 1 To Sheets.Count
If Sheets(x).Name <> "Sheet1" And Sheets(x).Name <> "Sheet2" Then ReDim Preserve aSelect(y): aSelect(y) = Sheets(x).Name: y = y + 1
Next
Sheets(aSelect).Selectcitovat