I'm trying to change the list in a data validation box with the following,
but instead of a list range in the dropdown box, I get the name of the
variable, "ShingleList" , that contains the list. Can anyone suggest a way
around it?

Dim ShingleList As String
ShingleList = "B52:B55"
Range("InptShingleType").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ShingleList"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With