Worked fine for me.

Doesn't even use a worksheet id to throw suspicion on. What is the command
button, form or control toolbox.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"mark kubicki" wrote in message
...
and i can't figure out why...

cells in range j15: j20 contan test values 12,34,56,78...


Private Sub CommandButton1_Click()
With Range("J24")
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
With .Validation
.Delete
.Add Type:=xlValidateList,
AlertStyle:=xlValidAlertWarning,
Operator _
:=xlBetween, Formula1:="=$j$15:$j$20"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "lit title"
.ErrorTitle = "waninng title"
.InputMessage = "input message"
.ErrorMessage = "warning messge"
.ShowInput = True
.ShowError = True
End With
End With
End Sub