Helo Guru,

I am using first method, format gets copied. But, error message pops up in the line [ActiveSheet.Range("A1").PasteSpecial xlValues]

Can you please help resolving it?

Thanks a lot
regards,
gm2612