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