Hi Sixthsense,

This is what i have now

ActiveCell.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(SUBSTITUTE(" & ActiveCell.Address = "R[-15]C" & ","" "",""_""))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Paver buildup"
        .ErrorTitle = ""
        .InputMessage = "Select build up type"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
The macro will run but the dropdown menu just displays FALSE. This is the same is i enter cell reference I82 in place of the R[-15]C

Damien