xl2003 transalation? (xl2003 sp2)

Topic

New Reply

Some weeks ago Hans kindly improved some brute force code for me. The purpose was to shift some stuff from one workbook to a new one and leave the new workbook suggesting it be saved as, to a particular location, with a suggested file name.
The code is below:
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = “C:credit unionloanapps2005_2006” & _
wshTarget.Range(“F6”) & wshTarget.Range(“J6”)
If .Show = True Then
ActiveWorkbook.SaveAs .SelectedItems(1)
End If
End With
This seems only to work with Excel 2003, which some of my users haven’t got.
Is there a ‘translation’ to apply for earlier versions, or, even better, one which works on ALL recent(ish) versions?
Thanks

Reply | Quote

Replies

FileDialog was introduced in Office XP (2002), it was not available in Office 2000 and before. As an alternative, you can use the modules and class module from post 505,867 (although they are in a Word document, they will work in any VBA dialect).

Reply | Quote