Cannot save 2003 file in 2010

[techstyle20]

Hi,

I am hoping someone can help. I have a macro that saves a file prefectly in 2003 but the same macro does not work in 2010. In my office we have users who are on both 2010 and 2003 so i need this to work on each version.

In essence I want this macro to save a new workbook as .xls so that all users can view and use the workbook. I have scoured this looking for an answer but nothing seems to work.

Can anyone help?

Sub CreateWorkbooks()
'creates new workbook in a specific location
Application.ScreenUpdating = False
Dim FilePath As String
Dim FName As String
Dim TodaysDate
TodaysDate = Format(Date, "dd-mm-yyyy")
FName = Range("P8").Value
Workbooks.Add
FilePath = "Child"
ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FName & "" & TodaysDate & ".xls"

ActiveWorkbook.Close

End Sub

 

[xenou]

I suppose desktop paths are off topic as far as the OP is concerned, but this works in both XP and Win7:

fPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
[COLOR="Navy"]Debug[/COLOR].[COLOR="Navy"]Print[/COLOR] fPath [COLOR="SeaGreen"]'//your desktop folder path, without a trailing slash[/COLOR]

myDocuments instead of Desktop is another useful one