how can i run this macros....very important!!

how can i run this macros....very important!!

Hey All,


I'm no macro expert so i need a litle hand on this one....

I have 2 macros that i'm desperate to make work.....The first one (in the workbook) is macro email sending e the second is a conditional formating...i don't now how to make this macros to work

Can you guys help me..?


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = false
On Error Goto ENEV
If(Target.Address="$F$5" And IsNumeric(Target.Value) And Target.Value>=1000) Then
ThisWorkbook.HasRoutingSlip = False
With ThisWorkbook.RoutingSlip
.Recipients = Array("$marinhogn@hotmail.com") ' Enter mail ids seperated by comma
.Subject = "$subject" ' Enter your subject here
.Message = "$message" ' Enter your message here
End With
ThisWorkbook.Route
End If
ENEV:
Application.EnableEvents = true
End Sub


and



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
With Target
Select Case LCase(.Value)
Case Is = "AT": .Interior.ColorIndex = 5
Case Is = "FN": .Interior.ColorIndex = 6
Case Is = "NP": .Interior.ColorIndex = 7
Case Is = "TF": .Interior.ColorIndex = 8
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub



thanks