Maybe these results copied from the immediate window will help you :

?xlPasteValues
-4163
?xlValues
-4163
?xlPasteFormats
-4122
?xlFormats
-4122
?xlPasteColumnWidths
8
?xlColumnWidths

i.e. the last value is undefined.

NickHK

"xk" wrote in message
...
Hi,

I need to do copy and paste special from one sheet to another sheet by
macro, for the whole thing include : value, format and column width, my
macro works for value and format, just can't done for column width.
Here is the part of my code:

With Worksheets(Worksheets.Count).Range("A7:Q57")
.PasteSpecial xlValues
.PasteSpecial xlFormats
.PasteSpecial xlColumnWidths
End With

.PasteSpecial xlColumnWidths is debuged wrong , anyone have an idea about
it?

Thanks a lot

xk