Ignorer VBA error

Hvad med

On Error Resume Next

... da springer den over fejlen og fortsætter i koden. Det må den ikke!

Vis lige koden og hvor den fejler

Jeg har i [indsæt] -> [navn]-> [definer] lavet følgende cellereference "TEST" med formlen:
=FORSKYDNING(START;SAMMENLIGN(PROJEKT!$E$1446;LISTE;0)+1;11;1;32)
Denne cellereference er i princippet fejl da PROJEKT!$E$1446 er tom.

I en celle, lad os kalde den A1 skal jeg have indsat følgende kode:
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=TEST"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

... men koden melder selvfølgelig fejl ved:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=TEST"

da TEST er fejl.

Ved kørsel af makroen får jeg en fejl 1004.

Jeg kan også sende et ark som demonstrerer fejlen

Kan du ikke bare lade makroen indsætte formlen i Test, efter at du har tilføjet valideringsreglen:

Fx

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=test"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   
    Worksheets("projekt").Range("test").FormulaLocal = "=FORSKYDNING(START;SAMMENLIGN(PROJEKT!$E$1446;LISTE;0)+1;11;1;32)"

Projekt skal selvfølgelig rettes til det ark, som tesrt befinder sig i? Så kører koden uden fejl, selv om projekt!e1446 er tom.

TEST er konstant oprettet, da det er et ark der bliver brugt igen og igen. TEST er i øvrigt 1 ud af et par hundrede tilsvarende.
Når jeg gendanner arket til næste bruger, gendanner jeg også en del formler med VBA, bl.a. nogle celler med Selection.Validation

Man kan undre sig, især når man ikke har så meget forstand på VBA.
Indsætter man i en makro koden ActiveCell.FormulaR1C1 = "=skod", og skod ikke er en gyldig reference, giver VBA ingen fejl. Dette burde være mindst lige så stor en fejl da man kalder på noget der ikke eksisterer.

Har fundet en anden løsning!

I min forskydning tilføjer jeg en snydereference bestående af et " " (mellemrum). I cellen $E$1446 tilsvarende! Derved er der ikke fejl i "=test". Denne løsning gør også at jeg ikke har en masse valideringer som for det meste står med fejl.