Email Sheet Every Hour

Hello, I am brand new to this site and would appreciate any help with the following problem:

I have an excel workbook that pulls data from the net every hour on the hour. What I want to do is email the value if it is over 100. My data is in B3-B32. Sample code below does not run the macro automatically, I am missing a step:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B3"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 100 Then
Call SendEmailUsingOutlook
End If
End If
End Sub

Sub SendEmailUsingOutlook()

Dim OlApp As New Outlook.Application
Dim myNameSp As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myExplorer As Outlook.Explorer
Dim NewMail As Outlook.MailItem
Dim OutOpen As Boolean

' Check to see if there's an explorer window open
' If not then open up a new one
OutOpen = True
Set myExplorer = OlApp.ActiveExplorer
If TypeName(myExplorer) = "Nothing" Then
OutOpen = False
Set myNameSp = OlApp.GetNamespace("MAPI")
Set myInbox = myNameSp.GetDefaultFolder(olFolderInbox)
Set myExplorer = myInbox.GetExplorer
End If

'myExplorer.Display

' Create a new mail message item.
Set NewMail = OlApp.CreateItem(olMailItem)
With NewMail
'.Display ' You don't have to show the e-mail to send it
.Display
.Subject = "Power is over 100"
.To = "xxx@xxx.com"
' Actual email address entered above
.Body = "Forcast is ("Target.Value")"
End With

NewMail.Send
If Not OutOpen Then OlApp.Quit

'Release memory.
Set OlApp = Nothing
Set myNameSp = Nothing
Set myInbox = Nothing
Set myExplorer = Nothing
Set NewMail = Nothing

End Sub

First create reference for

First create reference for outlook object library. and put the code in worksheet event.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B3"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 100 Then
Call SendEmailUsingOutlook
End If
End If
End Sub

Sub SendEmailUsingOutlook()

Dim OlApp As New Outlook.Application
Dim myNameSp As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myExplorer As Outlook.Explorer
Dim NewMail As Outlook.MailItem
Dim OutOpen As Boolean

' Check to see if there's an explorer window open
' If not then open up a new one
OutOpen = True
Set myExplorer = OlApp.ActiveExplorer
If TypeName(myExplorer) = "Nothing" Then
OutOpen = False
Set myNameSp = OlApp.GetNamespace("MAPI")
Set myInbox = myNameSp.GetDefaultFolder(olFolderInbox)
Set myExplorer = myInbox.GetExplorer
End If

'myExplorer.Display

' Create a new mail message item.
Set NewMail = OlApp.CreateItem(olMailItem)
With NewMail
'.Display ' You don't have to show the e-mail to send it
.Display
.Subject = "Power is over 100"
.To = "xxx@xxx.com"
' Actual email address entered above
.Body = "Forecast is " & Range("B3").Value
End With

NewMail.Send
If Not OutOpen Then OlApp.Quit

'Release memory.
Set OlApp = Nothing
Set myNameSp = Nothing
Set myInbox = Nothing
Set myExplorer = Nothing
Set NewMail = Nothing

End Sub