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