R
rowlo-efc
I have the following code that works fine in Excel 2003 and I am
looking for something similar that will produce the same result but
for Excel 2000
can anyone help?
If xmlfolder = "" Then
MsgBox "Select folder for the XML file", vbCritical
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "SELECT FOLDER"
.AllowMultiSelect = False
' Folder selected
If .Show = -1 Then
xmlfolder = .SelectedItems.Item(1) & "\"
End If
Regards
Jamie
looking for something similar that will produce the same result but
for Excel 2000
can anyone help?
If xmlfolder = "" Then
MsgBox "Select folder for the XML file", vbCritical
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "SELECT FOLDER"
.AllowMultiSelect = False
' Folder selected
If .Show = -1 Then
xmlfolder = .SelectedItems.Item(1) & "\"
End If
Regards
Jamie