FIrst, you're missing an END IF in this code

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
Call AddValidation
Else
Exit Sub
END IF

End Sub

--- Next problem

Sub AddValidation ()

If Range("D1") < "" Then
With rOpt1Choices.Validation '<~~~what is rOpt1Choices?
..Delete
..Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=Range("D1")
..IgnoreBlank = True
..InCellDropdown = True
..InputTitle = ""
..ErrorTitle = "Invalid Entry"
..InputMessage = ""
..ErrorMessage = "Please make a choice from the drop down
list"
..ShowInput = True
..ShowError = True
End With
End If

End Sub


" wrote:

I really need this to work for me and am hoping for a response so I am
going to keep posting to this until I get a response.
Great and many thanks to anyone who has any input or work arounds or
anything.