Hello all, this is my first post here. Seeing how people are amazingly good at excel, I definately could use some of your help.

Basically here is the situation, I have a list of items (ranges from cellA1 to A143). I want to create an automatic e-mail when each item gets to a certain number (for example resistors go down to 200, I need an e-mail to remind me to purchase more). I managed to write a macro with VBA that works fine when I refer one specific cell. Here is what I had written:

Private Sub Worksheet_Calculate()

Flux = Range("S13").Value
If Flux > 500 Then

Dim Address As String, Subject As String
Dim Body As String, Hyper As String

Address = "...(I had a valid e-mail in here)"
Subject = "The " & Range("S13") & " desk has a flux above $500mm"

Body = "The " & Range("A13") & " inventoryshows a flux of " & Format(Range("D13").Value, "$##,###") &

Hyper = "mailto:" & Address & "?subject=" & Subject & "&body=" & Body
ActiveWorkbook.FollowHyperlink (Hyper)


End If
End Sub

So I want to know if somebody could help me set this up to look at the range of cells and send me an e-mail for each individual item. Basically what I need excel to do is look at every item in my inventory and send me an email for each item individually (I want to see one item per email). If anybody could help me or point me as to what to change I would greatly appreciate it.

I am an extreme noob when it comes to VBA so thanks for any help!