Saving to a specific location
 

Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original was
opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" & inputText & ".xls"


--

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


"Sandy" wrote in message ...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original was
opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that as
yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to create
this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original was
opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message ...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that as
yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to create
this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original was
opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Hi Ron
Having a bit of bother piecing it all together - i have this at the moment,
but it returns a "Run-time error '76': Path not found" when it reaches
'MkDir DirName'- any thoughts?

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText


Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True


Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PGA\Personal
Golf Analyser-" & inputText & "\Personal Golf Analyser-" & inputText &
".xls"

ThisWorkbook.Close SaveChanges:=False

End Sub



Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that
as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Sorry - wrong code should read as follows - but still produces same error at
MkDir after running thro the function

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Golfer's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText

Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True


Dim Dirname As String
Dirname = "D\Sandy's Documents\All PGA\ Personal Golf Analyser\Personal
Golf Analyser-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PGA\Personal
Golf Analyser-" & inputText & "\Personal Golf Analyser-" & inputText &
".xls"

'ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"

ThisWorkbook.Close SaveChanges:=False

End Sub

Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that
as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Use this

Do you want inputtext as folder and also be a part of the file name ?
Is that correct



inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
' dirname is the path so you only add the file name here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\Personal Golf Analyser-" & inputText & ".xls"


--

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


"Sandy" wrote in message ...
Hi Ron
Having a bit of bother piecing it all together - i have this at the moment,
but it returns a "Run-time error '76': Path not found" when it reaches
'MkDir DirName'- any thoughts?

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText


Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True


Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PGA\Personal
Golf Analyser-" & inputText & "\Personal Golf Analyser-" & inputText &
".xls"

ThisWorkbook.Close SaveChanges:=False

End Sub



Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that
as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Watch your typing:

You need a colon after the drive letter and is there supposed to be a space
before the " Personal Golf Analyser" portion of the path.


Dirname = "D:\Sandy's Documents\All PGA\ Personal Golf Analyser\" _
& "Personal Golf Analyser-" & inputText

And if you use mkdir to make a folder, then each parent folder has to exist
before you can make the sub folder.

'assuming that there is a D: drive
on error resume next
mkdir "D:\Sandy's Documents"
mkdir "D:\Sandy's Documents\all pga"
mkdir "D:\Sandy's Documents\all pga\Personal golf analyser"
'... and so forth
On error resume next


This also assumes that there aren't any other errors that could happen (files
with the same name causing the mkdir to fail, permission restrictions, space
problems....)

Sandy wrote:

Sorry - wrong code should read as follows - but still produces same error at
MkDir after running thro the function

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Golfer's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText

Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True

Dim Dirname As String
Dirname = "D\Sandy's Documents\All PGA\ Personal Golf Analyser\Personal
Golf Analyser-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PGA\Personal
Golf Analyser-" & inputText & "\Personal Golf Analyser-" & inputText &
".xls"

'ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"

ThisWorkbook.Close SaveChanges:=False

End Sub

Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder that
as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy


--

Dave Peterson

Saving to a specific location
 

Yes Ron folder and filename.
Works perfectly now thanks for your expertise and patience.
Sandy

"Ron de Bruin" wrote in message
...
Use this

Do you want inputtext as folder and also be a part of the file name ?
Is that correct



inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
' dirname is the path so you only add the file name here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\Personal Golf Analyser-"
& inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi Ron
Having a bit of bother piecing it all together - i have this at the
moment, but it returns a "Run-time error '76': Path not found" when it
reaches 'MkDir DirName'- any thoughts?

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText


Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True


Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All
PGA\Personal Golf Analyser-" & inputText & "\Personal Golf Analyser-" &
inputText & ".xls"

ThisWorkbook.Close SaveChanges:=False

End Sub



Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder
that as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy

Saving to a specific location
 

Hi Sandy

Like Dave already posted the parent folder must exist
Also you can test if there is something in inputText and test if there are no wrong characters
to avoid errors.


--

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


"Sandy" wrote in message ...
Yes Ron folder and filename.
Works perfectly now thanks for your expertise and patience.
Sandy

"Ron de Bruin" wrote in message
...
Use this

Do you want inputtext as folder and also be a part of the file name ?
Is that correct



inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
' dirname is the path so you only add the file name here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\Personal Golf Analyser-"
& inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi Ron
Having a bit of bother piecing it all together - i have this at the
moment, but it returns a "Run-time error '76': Path not found" when it
reaches 'MkDir DirName'- any thoughts?

Sub New_Name()

Open_All_Sheets

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim inputText As String

inputText = Application.InputBox("Enter name here", _
"Person's Name", , , , , 2)

Sheets("Data Input").Range("D1:H1").Value = inputText


Application.Run "Lock_All_Sheets"

Application.EnableEvents = True

Application.ScreenUpdating = True


Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA-" & inputText & ""
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All
PGA\Personal Golf Analyser-" & inputText & "\Personal Golf Analyser-" &
inputText & ".xls"

ThisWorkbook.Close SaveChanges:=False

End Sub



Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sandy

"Ron de Bruin" wrote in message
...
You can create the folder with code first if it not exist

Sub testing()
Dim Dirname As String
Dirname = "D\Sandy's Documents\All PSA\PSA\" & inputText
If Not DirectoryExist(Dirname) Then
MkDir Dirname
End If
'your save line here
ThisWorkbook.SaveCopyAs Filename:=Dirname & "\testfile.xls"
End Sub


Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) < "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function


--

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


"Sandy" wrote in message
...
Thanks Ron

I've just had another thought - is it possible to SaveAs to a folder
that as yet doesn't exist. Eg

"D\Sandy's Documents\All PSA\PSA\(--and then use the "inputText" to
create this folder--)"

Sandy

"Ron de Bruin" wrote in message
...
Hi Sandy

ThisWorkbook.SaveCopyAs Filename:="D:Sandy's Documents\All PSA\PSA-" &
inputText & ".xls"


--

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


"Sandy" wrote in message
...
Hi
I have a bit of code as part of a 'Sub'- namely:

ThisWorkbook.SaveCopyAs Filename:="PSA-" & inputText & ".xls"

which saves a copy of a workbook to the same folder that the original
was opened from, in this case -

'D:Sandy's Documents\All PSA'.

How can I adjust this to save the file in a specific location eg

'D:\Sandy's Documents\All PSA\PSA\Excel 95-2003'

Thanks
Sandy