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...
Code:
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
Help!!! Code From 03 Won't Work in 07??
Linear Mode
