Don't prompt to save template

[BenMiller]

I have a macro which opens a template and creates a bunch of worksheets from it, then closes the template file. When it's finished running, it prompts and asks if I want to save Template (2). How do I stop it from prompting this? I will never want to resave the template under a new name; I want to keep it as is.

I can post the code if needed.

Thanks!

 

[Joe4]

What does your file close statement for the template in VBA look like?
I think some close commands have an argument for saving the file, and setting it as "False" will stop that prompt.
Otherwise, you may be able to surround the close command with code like this:

Application.DisplayAlerts = False
[I]'  Close file statement
[/I]Application.DisplayAlerts = True

 

[BenMiller]

Sorry, just got back to this project. Thanks! Worked like a charm

As part of this macro, I'm opening a template which contains many links ...Excel prompts me Update Links or not to. How do I remove this prompt? I tried putting

[LEFT][COLOR=#333333]Application.DisplayAlerts = False

before everything! Doesn't work Any ideas? Thanks![/COLOR][/LEFT]

 

[shg]

See the UpdateLinks argument to Workbooks.Open.

 

[BenMiller]

Ok, I'll definitely check that out ... thanks!

 

[BenMiller]

I can't seem to figure it out ... I'm doing it as follows. Am I writing it incorrectly?

NewFn = Application.GetOpenFilename(FileFilter:="Microsoft Excel file (*.xlsm), *.xlsm", Title:="Please select last month's file")
If NewFn = False Then
' They pressed Cancel
MsgBox "You will have to copy numbers manually."
Exit Sub
Else
    [B]Workbooks.Open "Filename:=NewFn", "UpdateLinks:=2"[/B]

 

[AlphaFrog]

Don't put quotes around the arguments.

Workbooks.Open Filename:=NewFn, UpdateLinks:=2

 

[BenMiller]

Thanks! And leave out the parentheses too? Sorry, this is my first time trying to do something with VBA

 

[AlphaFrog]

If you just use Workbooks.Open then no parenthesis required
Workbooks.Open Filename:=NewFn, UpdateLinks:=2

If you set the opened workbook to a variable when you open it, then parenthesis are required.
Set wb = Workbooks.Open(Filename:=NewFn, UpdateLinks:=2)

 

[BenMiller]

Oooh, got it! I'll give that a try. Thanks