Funcionou, Wagner.
Obrigado,
Por que Você criou a abaixo, se não chamou?
Sub Macro1()
Sheets("Controle").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/05/2014 9:13 pm