Extremely simple macro wont work

[tanewha69]

Can anyone please tell me why the following wont work?????

Private Sub Workbook_Open()
If Sheet1("B2") = "4" Then Application.Run ("MTEmailer")
End Sub

Sheet1 contains this:
- The formulas are in column B
1 Todays Date: =TODAY()
2 Todays Day: =WEEKDAY(B1,2) <--which is 4

The MTemailer macro itself works fine but it wont run based on the condition in B2... so simple yet it just wont do it for me.

Please help!!
Thanks in advance,
Tane