Macro Lista Condicional


#1

Preciso criar inúmeras listas condicionais, ou seja, lista dependente de categorias.
Segue o código :

Bloco de citação
Sub Validate()

’ Validate Macro

’ Atalho do teclado: Ctrl+Shift+I

Dim formula As String
formula = “=INDIRETO($B$8)”

With Selection.Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=formula
    
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = "Dados Invalidos"
    .ShowInput = True
    .ShowError = True
End With
Range("A1").Select

End Sub