im getting a problem -

'Run-time error '1004':

Paste Special Method of Range Class failed

Problem code is

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

it works sometimes tho - basically the code opens up a workbook - adds a new
sheet and pastes the values into cell A1.

any ideas?

thanks,

Are any of the cells you're copying, merged?


--
HTH
Roger
Shaftesbury (UK)

"Ciara" wrote in message
...
im getting a problem -

'Run-time error '1004':

Paste Special Method of Range Class failed

Problem code is

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

it works sometimes tho - basically the code opens up a workbook - adds a
new
sheet and pastes the values into cell A1.

any ideas?

thanks,

yes they are - if i do it manually it works but the code doesn't work? -
basically I paste special values and then paste special formats..... - i
dont' know why it won't work?

"Roger Whitehead" wrote:

Are any of the cells you're copying, merged?


--
HTH
Roger
Shaftesbury (UK)

"Ciara" wrote in message
...
im getting a problem -

'Run-time error '1004':

Paste Special Method of Range Class failed

Problem code is

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

it works sometimes tho - basically the code opens up a workbook - adds a
new
sheet and pastes the values into cell A1.

any ideas?

thanks,

Try something like

For Each cel In Sheets(1).Range("A1:D5")
On Error Resume Next
Sheets(3).Range(cel.Address) = cel
Next

This will ignore merged cells


--
HTH
Roger
Shaftesbury (UK)


"Ciara" wrote in message
...
yes they are - if i do it manually it works but the code doesn't work? -
basically I paste special values and then paste special formats..... - i
dont' know why it won't work?

"Roger Whitehead" wrote:

Are any of the cells you're copying, merged?


--
HTH
Roger
Shaftesbury (UK)

"Ciara" wrote in message
...
im getting a problem -

'Run-time error '1004':

Paste Special Method of Range Class failed

Problem code is

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

it works sometimes tho - basically the code opens up a workbook - adds
a
new
sheet and pastes the values into cell A1.

any ideas?

thanks,

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

Is Selection a single cell or a range of cells?

--
George Nicholson

Remove 'Junk' from return address.


"Ciara" wrote in message
...
yes they are - if i do it manually it works but the code doesn't work? -
basically I paste special values and then paste special formats..... - i
dont' know why it won't work?

"Roger Whitehead" wrote:

Are any of the cells you're copying, merged?


--
HTH
Roger
Shaftesbury (UK)

"Ciara" wrote in message
...
im getting a problem -

'Run-time error '1004':

Paste Special Method of Range Class failed

Problem code is

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

it works sometimes tho - basically the code opens up a workbook - adds
a
new
sheet and pastes the values into cell A1.

any ideas?

thanks,