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
Bookmarks