In Excel 2003 I created macros tied to command buttons that are tied to the
worksheet and shown as a Private sub. This macro will not run past through
the Range statement below in 2007. If I change it to a Public sub in a
module it works. How can I keep the code tied to the command button and why
doesn't it work anymore?

Private Sub SortbyCIGreenCommandButton7_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("JAN").Activate
Range("G4:BB4").Select
With Selection