Syntax for Pasting to a Cell in a Selection 1

[PeterMoran]

Hi,

I need a little help with the following code!

For Each c In Range([Input!O7]).Cells 'Normally a range of 4 cells
If Not IsNumeric(c.Value) Then
If c.Value = "Wash Out" Then
Range("Washout").Copy
Range(.c).Paste "How do I define this paste to the particular Cell
End If

I am trying to paste the range I have copied to the cell in the selection, but seem unable to get the syntax correct.

Any suggestions appreciated.

Peter Moran

 

[macropod]

You could use:
c.PasteSpecial xlPasteAll

Cheers
Paul Edstein
[MS MVP - Word]

 

[PeterMoran]

Hi,

Did the trick!

Many thanks Paul

Peter Moran

 

[PHV]

Why not simply this ?
Range("Washout").Copy c

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886