Resolvi do seguinte modo: Dim Planilhas numTotal = x 'nº total das planilhas que farei backup ReDim Planilhas(1 To numTotal) ...

Caio no mesmo problema anterior, quando tento parametrizar minha lista de planilhas. Sub GravaAbas2() lista = Worksheets("Parametros")....