ActiveWorkbook pointer for Macros from PERSONAL.XLS

R

Robert

Just following up from postings of 18 Jul 2005.

Norman Jones, while recording the macro,Ctrl Tab
activates the workbook that I require and the macro
code "ActiveWindow.ActivateNext" was added. Since
I will not have any unecessary workbooks open, the
macro works fine. A subsequent Ctrl Tab will activate
Personal.xls once again.

Original posting

I am now trying to run all macros FROM Personal.xls. Having followed some of
the posts, I tried but I am still unable to point to the worksheet that has
to be run.
Seek help (Norman Jones? Ron de Bruin?) Thank you.
Examples of my macros:
Macro1
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
Application.Run "PERSONAL.XLS!Sort1"
Application.Run "PERSONAL.XLS!Sort2"
Range("G2").Select
Calculate
End Sub
====
Macro Sort1 (only the beginning quoted here)

Application.Goto Reference:="STARTSORT1"
Range("J1:J2000").Select
Selection.Copy
Application.Goto Reference:="R11001C11"
............End Sub
=====
MacroSort2 (only beginning quoted here)

Dim i As Long
Application.Goto Reference:="STARTSORT2"
Range("A1:IR2000").Copy
Range("A11000").PasteSpecial Paste:=xlPasteValues, _
.......End Sub

RobertR
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top