I have several functions and subs (appoximately 7) that use the following two lines.Dim oFolder As Fol