Try the following with the correct file path...
'---
Sub OutOfSight()
Dim strPath As String
strPath = "C:\SomeFolder\AnotherFolder\SomeFileName.xls"
Call TheShadowKnows(strPath)
End Sub
'---
Function TheShadowKnows(ByRef FileLocation As String) As Boolean
Dim fso As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(FileLocation)
If Not f.Attributes And 2 Then f.Attributes = f.Attributes + 2
Set f = Nothing
Set fso = Nothing
End Function
'---
More on the FileSystemObject here...
http://www.microsoft.com/downloads/e...displaylang=en
'---
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(List Files XL add-in: finds and lists files/folders with hyperlinks)





"Steve Jones"

wrote in message
...
Hi,
I am using Excel 2003.

Is it possible for me to so save an Excel file within VBA so that it is not visible in the folder
it is saved in?
This is an extract of the code I have which currently saves the file:

ActiveWorkbook.SaveAs Filename:="\purchases\ " & name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="xxx", _
ReadOnlyRecommended:=False, CreateBackup:=False

I know once the file has been saved I can set the file properties to hidden which works but didn't
know whether or not it was possible within VBA.

Thanks very much