SLP,

I was sending you an example of multiple files and calling a workbook and
select a sheet. What sheet is selected when you return to the original book?
Also you do not need to make a Maximize call to the workbook. Just
acitivating the book will bring it up maximized.

"SLP" wrote:

Thanks, that almost does the trick. Sheet 2 (which is called Buttons)
doesn't activate. The SaveOneFile gets called from another sub which I
didn't send to you.

Your next response was out of synch with what I am doing but may come in
handy in a future project.

"JRForm" wrote:

SLP,

Put this statement at the top of your module below the "Option Explict"

Public Oldbook as string

Delete the Oldbook definition in your button code "Dim Oldbook as String"
Also change the code:
Windows("Oldbook.xls").Activate
To
Windows(Oldbook).Activate

That should do it, however, I don't see how/where the call is made for
"SaveOneFile" .


"SLP" wrote:

Thank you. This is the start of the button. We are in the budget workbook
and it calls up a workbook called link.

Dim Oldbook As String
Oldbook = ActiveWorkbook.Name

Windows("Link.xls").Activate
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "CC"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Location"
Range("AG1").Select
ActiveCell.FormulaR1C1 = "CC"
Range("AH1").Select
ActiveCell.FormulaR1C1 = "Location"
Range("AH2").Select
ActiveCell.FormulaR1C1 = "0"
Range("AH2").Select
Selection.NumberFormat = "0"

This is the end of the button. The Liink workbook has had a user defined
filter set and now gets saved with a different name.

Sub SaveOneFile()
'
ActiveWorkbook.SaveAs Filename:="H:\BITemp.xls", FileFormat:=xlExcel4, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


ActiveWindow.WindowState = xlMinimized
Windows("Oldbook.xls").Activate
ActiveWindow.WindowState = xlMaximized

Sheets("Buttons").Select

"JRForm" wrote:

SLP,

Send me a code snippet maybe I can help if I can see what the code looks like.

"SLP" wrote:

Well, I guess I am just stupid. I can't get it to work. The budget workbook
has a button that opens another workbook (book 2) that has input boxes for
the user to select center and location for a filter, that data being placed
into book 3. Book 2 gets minimized. I want book 3 to be minimized and the
budget workbook to be maximized with sheet 2 being activated.

"SLP" wrote:

I'll try that. The workbook that has the macro button knows which workbook
is getting used. Don't think I ever made a public variable but will try.
Will keep you posted.

"JRForm" wrote:

SLP,

make it a Public variable.
set it equal to the workbook that you are trying to call up. I assume it is
the workbook the macro button is located. Does your code control what
workbook is getting used and then it will return to the one with the button?

"SLP" wrote:

Tried your suggestion and I can't make it work. I placed the variable at the
beginning of the code for that command button that starts this part of my
routine and then added the dim Oldbook as string at the beginning of the code
that minimizes the other workbook. Any other ideas? I'll keep at it....just
in case I need to add the variable someplace else.

"SLP" wrote:

That sounds interesting. I'll give it a try and let you know. Thanks.

"JRForm" wrote:

SLP,

Okaydo you have code that minimizes the workbooks? If so you can set a
variable to keep the workbook name.
dim Oldbook as string
Oldbook=activeworkbook.name


"SLP" wrote:

Thanks for the response. I thought about that but the problem is the
workbook used by many people who will save it with a different name. (Its a
budget tool.) Would a wildcard work for a file name? I could probably tell
everyone just to enter their initials or something after the workbook name.

"JRForm" wrote:

SLP,

Try
Windows("your workbook name").activate
sheets("Sheet2").select


"SLP" wrote:

Hi. Not sure if this can be done. At one point in my routing, I have three
workbooks that are minimized. I need to maximize one of the three and have
to open on sheet two. Anyone have any ideas on how to code this? Thanks in
advance.