in your vb6 prog...try using...With MyXLSh.Range("C5").Copy.Range("C6").PasteSpecial xlPasteFormulasEnd Withhope it works...