Hey All,

I'm completely new to messing with any of this, so I really appreciate your patience and help! I'm attempting to set up a spreadsheet to track maintenance/warranties on gear at work. Basically we have a column for each item, type of warranty, length of warranty, and days left. At this point I have it set up to email me when the value of a specific cell in the Days Left column (column H) reaches 90 (90 days of maintenance left, time to renew). What I'm trying to do is get it to send an email when any cell value in column H hits 90. I've pasted below what I have so far. Instead of "H4" I'm trying to figure out how to say "anything in column 4".

Thanks!

Private Sub Workbook_Open()
Dim w As Worksheet, c As Comment
For Each w In ThisWorkbook.Worksheets
Select Case w.Range("H4").Value
Case Is <= 90
Set c = w.Range("H4").Comment
If c Is Nothing Then
send_mail w.Range("H4").Value, w.Range("I6").Value
ElseIf c.Text <> w.Range("H4").Value & " day reminder sent." Then
send_mail w.Range("H4").Value, w.Range("I6").Value
End If
End Select
Next w
Set c = Nothing
Set w = Nothing
End Sub
Private Function send_mail(numdays As Variant, eaddress As String)
Dim O, m
Set O = CreateObject("Outlook.Application")
Set m = O.CreateItem(0)
With m
.To = eaddress
.CC = ""
.BCC = ""
.Subject = "Maintenance Warning"
.Body = "There are one or more items with less than 90 days of maintenance left."
.Display 'or use .Display
End With
Set m = Nothing
Set O = Nothing
End Function