Hi all,

Ragulduy kindly provided me with a working DV. It works great (ensures first letter is capitalised, everything else must be lower). I then recorded myself entering this DV on a few non-contiguous blank cells. The formula applied fine.

However when I then try and apply it to my worksheet (multiple ranges - some blank, some not) - it throws up a RTE here:


 .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:= _
        "=EXACT(UPPER(LEFT(A1,1))&LOWER(RIGHT(A1,LEN(A1)-1)),A1)"
The full, recorded code is:

Sub Macro1()

    Range("A1:A15,C1:C15,E1:E15,G1:G15,I1:I15,A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=EXACT(UPPER(LEFT(A1,1))&LOWER(RIGHT(A1,LEN(A1)-1)),A1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub