On my webpage
http://www.rondebruin.nl/copy2.htm

You can see examples below the macro

CopyRng.Copy DestSh.Cells(Last + 1, "A")




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"dhermus" wrote in message ...
On Nov 9, 12:22 pm, joel wrote:
there are 3 places you are pasting code

1)
from

With mst.Cells(1, 1).Resize(1, colCount)
Value = sht.Cells(1, 1).Resize(1, colCount).Value
'Set font as bold
Font.Bold = True
End With

to

sht.Cells(1, 1).Resize(1, colCount).copy destination:=mst.Cells(1,
1).Resize(1, colCount)

2)

from
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False

to
Selection.Paste

3)

from
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

to
Selection.Paste

--
joel
------------------------------------------------------------------------
joel's Profile:http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:http://www.thecodecage.com/forumz/sh...d.php?t=152401

Microsoft Office Help

Joel,

Thanks for the help.

Unfortunately, it doesn't like the selection.paste command. I am
getting the error message "object doesn't support this property or
method."

Dave