Application VisualBasic Script

Sub run()
    DoCmd.RunMacro "RemoveDuplicates"
End Sub
Option Compare Database