How to insert a fomula into list box via vba?

[peter_z]

Hello everyone,

I currently have some VBA code which is inserting

30 days
Cancelled

Down a column inside a list cell.

I am just wondering if there is a way to instead of saying 30 days to have the date 30 days from now?

Code I am using is:

               Range("M6:M" & lngCounterC - 1).Select
                With Selection.Validation
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="30 Days, Cancelled"
                End With

Your help is much appreciated thank you

 

[peter_z]

Any idea's on this one? I just can't figure it out