Okay,
I've managed to get together a code, as below, that works just as I need. I've put a formula in column AE that works out the difference between todays date and original date and then created a set email on the tab "Email".
The problem is this only works for row 2 at the moment. How would I go about looping the code so that it works for around 200 + lines?
Sheets("Data").Select
If ActiveSheet.Range("AE2").Value >= 21 Then
Sheets("Email").Select
ActiveSheet.Range("A1:K30").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Sheets("Data").[AD2].Value
.Item.Subject = [N1].Value
.Item.Send
End With
End If
Any help is extremelly appreciated. Many Thanks.
Bookmarks