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