Hi,
Currently I have a file (Excel 2007 in "Compatibility Mode") that copies a sheet to a new book and saves the new book as a new name and closes it. The problem I am having is that when I reopen the newly created wb, it tells me its in a new format different from excel?? However eventually I am able to open it. Other people who do not have 2007 cannot open it. my save as dialogue states ".xls". I think I have isolated the problem, which is that with 07 when you save as there are many options but I do not know the code for those options, can anyone help?? I need the file to save as compaitiblity...
Sheets("Version1").Select
Sheets("Version1").Copy
thisfile = range("b24").Value & ".xls": FileFormatNum = 56
directory = "G:\Documents\XL\2009\"
range("a11:ag24").Select 'This range has linked information
Selection.Copy
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=directory & thisfile ' CODE BREAKS HERE
ActiveWorkbook.Close
Currently I have a file (Excel 2007 in "Compatibility Mode") that copies a sheet to a new book and saves the new book as a new name and closes it. The problem I am having is that when I reopen the newly created wb, it tells me its in a new format different from excel?? However eventually I am able to open it. Other people who do not have 2007 cannot open it. my save as dialogue states ".xls". I think I have isolated the problem, which is that with 07 when you save as there are many options but I do not know the code for those options, can anyone help?? I need the file to save as compaitiblity...
Sheets("Version1").Select
Sheets("Version1").Copy
thisfile = range("b24").Value & ".xls": FileFormatNum = 56
directory = "G:\Documents\XL\2009\"
range("a11:ag24").Select 'This range has linked information
Selection.Copy
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=directory & thisfile ' CODE BREAKS HERE
ActiveWorkbook.Close