Simple Copy Range Error

**Jiptastic** · 02-21-2013, 12:56 PM

What's the matter with this syntax? Can't I paste a single cell into multiple cells? This errors on "Application-Defined or Object-Defined Error"

Cells(1, 1).Copy Sheets("Pasted Zip Codes").Range(Cells(3, 1), Cells(3, 15))

**romperstomper** · 02-21-2013, 01:04 PM

You haven't properly qualified all the relevant Cells properties:

With Sheets("Pasted Zip Codes")
Cells(1, 1).Copy .Range(.Cells(3, 1), .Cells(3, 15))
end with

**Norie** · 02-21-2013, 01:06 PM

Either fully qualify Cells or try this.

Cells(1, 1).Copy Sheets("Pasted Zip Codes").Cells(3, 1).Resize(, 15)

**Jiptastic** · 02-21-2013, 01:11 PM

Romperstomper, I am pasting from the activesheet to another, so this solution doesn't work. Do you really need that many periods before cells and before Range?

**JOHN H. DAVIS** · 02-21-2013, 01:13 PM

Maybe try:

Sub JiptasticC()

Range("A1").Copy Sheets("Pasted Zip Codes").Range("A3:O3")

End Sub

**Norie** · 02-21-2013, 01:16 PM

Jiptastic

romperstomper's code will work, it is copying from the active sheet to 'Pasted Zip Codes'.

**romperstomper** · 02-21-2013, 01:17 PM

@Jiptastic
It does work and does exactly what you described. If it doesn't work for you, I have to assume you copied something wrongly (or added an extra full stop in front of the first Cells call)