I have simple code:

Sheets("DW").Range("C15:BK15").Copy
Sheets("DW").Range("C11").PasteSpecial(xlValues)

I get the follwoing error:

Error 1004
Unable to get the PasteSpecial property of the Range class

What gives?

try

with range("c15:bk15")
..value=.formula
end with
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"chemicals" <(E-Mail Removed)> wrote in message
news:0AF46404-A1C4-4CD4-96F4-(E-Mail Removed)...
>
> I have simple code:
>
> Sheets("DW").Range("C15:BK15").Copy
> Sheets("DW").Range("C11").PasteSpecial(xlValues)
>
> I get the follwoing error:
>
> Error 1004
> Unable to get the PasteSpecial property of the Range class
>
> What gives?

Try this one.

Option Explicit
Public Sub PasteSpecial()
Dim ws As String
Dim from As Range
Dim destination As Range
ws = "DW"

With Worksheets(ws)
Set from = .Range("A2:A5")
Set destination = .Range("B2")
Call from.Copy
Call destination.PasteSpecial(xlPasteValues)
End With

End Sub


--
Carlos


"chemicals" wrote:

>
> I have simple code:
>
> Sheets("DW").Range("C15:BK15").Copy
> Sheets("DW").Range("C11").PasteSpecial(xlValues)
>
> I get the follwoing error:
>
> Error 1004
> Unable to get the PasteSpecial property of the Range class
>
> What gives?

I have solved it with this workaround...but woudlstill like to know what my
original problem was

Sheets("DW").Range("C11:BK11").Value =
Sheets("DW").Range("C15:BK15").Value


"chemicals" wrote:

>
> I have simple code:
>
> Sheets("DW").Range("C15:BK15").Copy
> Sheets("DW").Range("C11").PasteSpecial(xlValues)
>
> I get the follwoing error:
>
> Error 1004
> Unable to get the PasteSpecial property of the Range class
>
> What gives?

I am guessing that that line of code was all on one line? That would cause
the problem. PasteSpecial code goes on 2 lines... something like this...

Sheets("DW").Range("C15:BK15").Copy
Sheets("DW").Range("C11").PasteSpecial xlValues
Application.CutCopyMode = False
--
HTH...

Jim Thomlinson


"chemicals" wrote:

>
> I have simple code:
>
> Sheets("DW").Range("C15:BK15").Copy
> Sheets("DW").Range("C11").PasteSpecial(xlValues)
>
> I get the follwoing error:
>
> Error 1004
> Unable to get the PasteSpecial property of the Range class
>
> What gives?

Try this one,

Option Explicit
Public Sub PasteSpecial()
Dim ws As String
Dim from As Range
Dim destination As Range
ws = "DW"

With Worksheets(ws)
Set from = .Range("A2:A5")
Set destination = .Range("B2")
Call from.Copy
Call destination.PasteSpecial(xlPasteValues)
End With

End Sub

--
Carlos


"Don Guillett" wrote:

> try
>
> with range("c15:bk15")
> ..value=.formula
> end with
> --
> Don Guillett
> SalesAid Software
> (E-Mail Removed)
> "chemicals" <(E-Mail Removed)> wrote in message
> news:0AF46404-A1C4-4CD4-96F4-(E-Mail Removed)...
> >
> > I have simple code:
> >
> > Sheets("DW").Range("C15:BK15").Copy
> > Sheets("DW").Range("C11").PasteSpecial(xlValues)
> >
> > I get the follwoing error:
> >
> > Error 1004
> > Unable to get the PasteSpecial property of the Range class
> >
> > What gives?
>
>
>