Victor.Nunes

Estou com erro de depuração já verifiquei as linhas não encontrei formulas . Sub LimpaBotoes() Dim paginas As Integer Dim Plan_atual, Plan_PDF As String ' Verifica qual planilha que est‡ sendo preenchida Plan_atual = ActiveSheet.Name ' checa se a planilha de PDF j‡ foi criada Plan_PDF = Plan_atual + "_PDF" 'adiciona o nome _PDF ˆ planilha atual 'Quantidade de p‡ginas constantes no pdf paginas = Range("M1").Value Sheets(Plan_PDF).Select Select Case paginas Case 1 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Case 2 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Case 3 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J365").Select Selection.Value = "" Case 4 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Case 5 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Case 6 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Sheets(Plan_PDF).Range("J545:J631").Select Selection.Value = "" Case 7 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Sheets(Plan_PDF).Range("J545:J631").Select Selection.Value = "" Sheets(Plan_PDF).Range("J636:J722").Select Selection.Value = "" Case 8 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Sheets(Plan_PDF).Range("J545:J631").Select Selection.Value = "" Sheets(Plan_PDF).Range("J636:J722").Select Selection.Value = "" Sheets(Plan_PDF).Range("J727:J813").Select Selection.Value = "" Case 9 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Sheets(Plan_PDF).Range("J545:J631").Select Selection.Value = "" Sheets(Plan_PDF).Range("J636:J722").Select Selection.Value = "" Sheets(Plan_PDF).Range("J727:J813").Select Selection.Value = "" Sheets(Plan_PDF).Range("J818:J904").Select Selection.Value = "" Case 10 Sheets(Plan_PDF).Range("J90:J176").Select Selection.Value = "" Sheets(Plan_PDF).Range("J181:J267").Select Selection.Value = "" Sheets(Plan_PDF).Range("J272:J358").Select Selection.Value = "" Sheets(Plan_PDF).Range("J363:J449").Select Selection.Value = "" Sheets(Plan_PDF).Range("J454:J540").Select Selection.Value = "" Sheets(Plan_PDF).Range("J545:J631").Select Selection.Value = "" Sheets(Plan_PDF).Range("J636:J722").Select Selection.Value = "" Sheets(Plan_PDF).Range("J727:J813").Select Selection.Value = "" Sheets(Plan_PDF).Range("J818:J904").Select Selection.Value = "" Sheets(Plan_PDF).Range("J909:J993").Select Selection.Value = "" End Select Sheets(Plan_atual).Select End Sub