Creating the below function worked great. Didn't think about this route when I posted the question.

Private Function CustomerFolder() As Folder
  Set CustomerFolder = Application.Session.Folders("Rings").Folders("Contacts").Folders("Customers")
End Function