Is there a way of adding the = xlNormal from the first statement, to
the last row of the second statement.
I've tried the obvious (I think)
I'm trying to avoid the pop up ( this file already exists........), due to
the double save I am currently doing.
Thanks in advance.

' Save File in 2003 Format
ActiveWorkbook.SaveAs FileFormat:=xlNormal

' Use Existing name, Modified by adding "J" at the end
OldPath = ActiveWorkbook.Path & "\"
OldName = ActiveWorkbook.Name
NewPath = "C:\ZEXTRACT\"
NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls"
ActiveWorkbook.SaveAs NewName

Hi BEEJAY

I'm trying to avoid the pop up ( this file already exists........),

You can use this

Application.DisplayAlerts = False
'Your save code
Application.DisplayAlerts = True


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"BEEJAY" wrote in message ...
Is there a way of adding the = xlNormal from the first statement, to
the last row of the second statement.
I've tried the obvious (I think)
I'm trying to avoid the pop up ( this file already exists........), due to
the double save I am currently doing.
Thanks in advance.

' Save File in 2003 Format
ActiveWorkbook.SaveAs FileFormat:=xlNormal

' Use Existing name, Modified by adding "J" at the end
OldPath = ActiveWorkbook.Path & "\"
OldName = ActiveWorkbook.Name
NewPath = "C:\ZEXTRACT\"
NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls"
ActiveWorkbook.SaveAs NewName

As always, thanks so much.
Often I can't see the trees for the forest
jfs


"Ron de Bruin" wrote:

Hi BEEJAY

I'm trying to avoid the pop up ( this file already exists........),

You can use this

Application.DisplayAlerts = False
'Your save code
Application.DisplayAlerts = True


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"BEEJAY" wrote in message ...
Is there a way of adding the = xlNormal from the first statement, to
the last row of the second statement.
I've tried the obvious (I think)
I'm trying to avoid the pop up ( this file already exists........), due to
the double save I am currently doing.
Thanks in advance.

' Save File in 2003 Format
ActiveWorkbook.SaveAs FileFormat:=xlNormal

' Use Existing name, Modified by adding "J" at the end
OldPath = ActiveWorkbook.Path & "\"
OldName = ActiveWorkbook.Name
NewPath = "C:\ZEXTRACT\"
NewName = NewPath & Left(OldName, Len(OldName) - 4) & "J.xls"
ActiveWorkbook.SaveAs NewName