Esta tentando "selecionar" um objeto escondido (Plan1 em seu modelo esta oculta "veryHidden")
Altere de
Plan1.Select
Plan1.Visible = xlSheetVisible
Para:
Plan1.Visible = xlSheetVisible
Plan1.Select
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/12/2017 2:41 pm