Bom dia ISIDRO2016
Dificilmente o pessoal responde sem ter uma planilha, mas tente resolver, acrescente essas linhas de código em vermelho, no início e no final, como o exemplo abaixo:
Sub Exemplo()
Application.ScreenUpdating = False
Userform1.Show
Application.ScreenUpdating = True
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/08/2016 5:41 am