I took a punt.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Bob Umlas" wrote in message
...
You understood "lop the range"?


"Bob Phillips" wrote in message
...
For Each cell In Range("B1:B2")
cell.Value = Chr(34) & cell.Offset(0, -1) & """"
Next cell


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Chris" wrote in message
...
How can I lop the range?

"Bob Umlas" wrote:

Range("A1","A2") doesn't have a value. It's equivalent to
Range("A1:A2")
which also doesn't have a value. Try entering this formula in cell
C5:
=A1:A2
You get #VALUE!
You need to loop through the ranges & surround each individual cell
with
the
quotes.
Also - why did you use Chr(34) in one case and """" in the other? -
just
curious.

"Chris" wrote in message
...
Hi,
Why do I get the error with this

Sub test()

Range("B1", "B2").Value = Chr(34) & Range("A1", "A2").Value
&
""""

End Sub

Type mismatch. I am trying to take all data in one column and
apply
double
quotes and put it in a second column.

Thanks