I tried that. I used:.Sheets(Array("130983", "210232", "222574", "240213", "240219", "240223", "240376", _
"240462", "240463", "240464", "240465", "250004", "360003", "360009", "480004", _
"500250", "500637", "520255", "520268", "550222", "550225")).Select
.Sheets("130983").Activate...