#!perl use Win32::OLE; my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application')); sub Macro1 { # Macro1 Macro # Macro recorded 11/4/2009 $_app_object->Range('B3')->Select(); $_app_object->ActiveSheet->OLEObjects->Add({Filename => 'C:\\Documents and Settings\\User\\My Documents\\Sitemap.xml', Link => 0, DisplayAsIcon => 0})->Select(); }