Função para Proteger Celulas com Formulas

Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Existe Fórmula - não digite!"
.InputMessage = ""
.ErrorMessage = "Célula com Fórmula está protegida!!"""
.ShowInput = True
.ShowError = True
End With
End Sub