1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Sub ExportCategories() Dim olkCB As New CategoryBackup olkCB.Export Set olkCB = Nothing End Sub Sub ImportCategories() Dim olkCB As New CategoryBackup olkCB.Import Set olkCB = Nothing End Sub