Sub MatchingPanose() PanoseMatching = cdrPanosePermanent OpenDocument "C:\My Documents\Graphic1.cdr"End Sub