Macro in progress

gistfile1.vb

Sub Pipeline()

'Module 3
'Iterating through the Funding Date Column and looking for clients going live within 30 days
'Selecting the rows for each client in that target range
'TODO: Export information into an email template in Outlook
'TODO: Send email to distribution list


Dim fundingDate As range
Set fundingDate = range("M4:M500")

Dim todaysDate As Date
todaysDate = Date

For Each cell In fundingDate
If cell < todaysDate + 30 Then
Rows.Select
'cell.Font.ColorIndex = 5
Else
cell.Font.ColorIndex = 3
End If
Next


End Sub