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

Private sub's can be triggered from the module that they reside in.
Public Sub's can be triggered from any module.

It is actually an "environmental" issue.
Public is "a higher level " than private.

So in your case I think you tried to run a private routine from a module to
which it does not belong.

--
Regards;
Mark Rosenkrantz
--
Spreadsheet Solutions
Uithoorn
Netherlands (Those who live some 18 feet below sea level)
--
E:
W: www.spreadsheetsolutions.nl
--
"Frustratedw/07" wrote in message
...
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

Procedures marked Private can be accessed only from code within the
same module. They cannot be found by code in any other module. See
http://www.cpearson.com/Excel/Scope.aspx for more details.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Wed, 4 Feb 2009 07:20:02 -0800, Frustratedw/07
wrote:

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