running multiple macros at once
your code works fine here, except the subtotal part, i didn't duplicate that.
what kind of modules is your code in? sheet or code?
can you go to the vbe an press f8 to step through your code and watch what
happens?
comment out everything but the 3 additional macros and see if they run
comment out everything but the sort and see if it works,
try to narrow down what doesn't work
--
Gary
--
Gary
"childofthe1980s" wrote in message
...
I'm afraid that that did not work...any other ideas?
childofthe1980s
"trice-nae" wrote:
use:
Application.Run "Col_Headers"
Application.Run "Col_Width"
Application.Run "Format_Header"
You can always run your macros while recording one to see what the code
would look like.
childofthe1980s wrote:
Hello:
I have four separate macros for a spreadsheet. I want to run all four
macros at once and in a certain order. I want all four macros combined
into
one. Here is what I have done to "combine" these macros, so far.
After my first macro, I have put the names of my other three macros. My
first macro runs, but these last three do not.
How can I get all four of these macros to run without the end user having
to
run the first macro and then run each of the other three manually and
separately?
Below is my macro. The last three lines are the names of the other three
macros. These other three macros are in the same VBA screen as the
combined
macro. So, that's how the combined macro knows where to reference the
other
three:
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Range("A1").Select
Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4),
_
Replace:=True, PageBreaks:=True, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4),
_
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Col_Headers
Col_Width
Format_Header
Thanks!
childofthe1980s
|