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