Everywhere you have ActiveSheet.Paste, put

Selection.PasteSpecial Paste:=xlValues

(unless the person(s) you are sending this to need any of the formulas)

Hope this helps,

Russell

[ This Message was edited by: Russell Hauf on 2002-03-11 13:58 ]