Not sure why that would error, perhaps an issue with the copy paste or a missing reference
Try removing that function and replace the
sPath = SelectFolder("Select folder for page sizing")
with
sPath = "C:\My Files"
where the path is to wherever you have put your Word documents.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
|