Calculate Future Date Excluding Weekends

I am using the same structure to update another column, under the same sub:


If Target.Column = 5 Then '

Select Case Range("d69").Value
Case "CB1W"
ActiveCell.Value = DateAdd("ww", 1, Now())
Case "CB2W"
ActiveCell.Value = DateAdd("ww", 2, Now())
Case "CB3W"
ActiveCell.Value = DateAdd("d", 21, Now())
Case "CB4W"
ActiveCell.Value = DateAdd("d", 28, Now())
Case "CB5W"
ActiveCell.Value = DateAdd("d", 35, Now())
Case "NI"
ActiveCell.Value = ""
Case Else
ActiveCell.Value = ""
End Select

I would like to apply the code to the whole column but if I change Select Case Range("d69").Value to Select Case Range("d2:1000").Value I get a Type Mismatch Error (13) - (on Case "CB1W" ) - column d cells are data validation drop down boxes that get their value form a named ranged :Lead_Status. The column is also formatted as Text. (I applied the code to d69 because I have data already in the other cells which I don't want altered till I have the code working)

I would also greatly appreciate your advice on how to incorporate the WEEKDAY function to exclude weekends for the DateAdd function.