Help!!! Code From 03 Won't Work in 07??

Greeting Experts!

This is my first experience with writing code in an '03 environment and then having the book copied into an '07 envorinment.

The code is triggered from an embedded CommandButton in Sheet1 however, the user is saying the code is not working and he is not sure if the button is even compressing.

Will someone please take a look at my code and offer any suggestions as to what rules I may have broke here...

Thank You All, Very Much!


Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

If ActiveCell.Column <> 25 Or _
ActiveCell.Row > 160 Then
Msg = MsgBox("Blah Blah Blah", vbOKOnly, "ERROR")
Exit Sub
End If

With ActiveCell
.Value = "NO EXIT"
.Offset(0, 1).Value = "NO EXIT"
.Offset(0, 2).Value = "NO EXIT"
.Offset(0, 4).Value = "NO EXIT"
.Offset(0, 9).Value = "NO EXIT"
.Offset(0, 10).Value = "NO EXIT"
.Offset(0, 11).Value = "NO EXIT"
.Offset(0, 12).Value = "NO EXIT"
.Offset(0, 13).Value = "NO EXIT"
.Offset(0, 19).Value = "NO EXIT"
.Offset(0, 20).Value = "NO EXIT"
.Offset(0, 22).Value = "NO"
.Offset(0, 23).Value = "EXIT IF"
.Offset(0, 24).Value = "EXIT IF"
.Offset(0, 25).Value = "EXIT IF"
.Offset(0, 26).Value = "EXIT IF"
.Offset(0, 27).Value = "EXIT IF"
.Offset(0, 28).Value = "EXIT IF"
.Offset(0, 29).Value = "EXIT IF"
.Offset(0, 30).Value = "EXIT IF"
.Offset(0, 31).Value = "EXIT IF"
.Offset(0, 32).Value = "EXIT IF"
.Offset(0, 33).Value = "EXIT IF"
.Offset(0, 34).Value = "EXIT IF"
.Offset(0, 35).Value = "EXIT IF"
.Offset(0, 36).Value = "EXIT IF"
.Offset(0, 37).Value = "EXIT IF"
.Offset(0, 38).Value = "EXIT IF"
.Offset(0, 39).Value = "EXIT IF"
End With
Application.ScreenUpdating = True

End Sub


Thanks Again!

Update:
Apparently there are some additional Security measures (ActiveX) that need to be turned off (or on depending on your perspective) . Once this was done everything worked fine.

Thanks to all who stopped by...