He like some.

--
HTH

Bob Phillips

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

"Dave Peterson" wrote in message
...
I don't think you like vowels! <vbg.

Chris wrote:

Your code is pretty clan too.

"Dave Peterson" wrote:

Option Explicit
Sub test()
dim myRng as range
dim myCell as range

with activesheet
set myrng = .range("b1:B2")
end with

for each mycell in myrng.cells
mycell.value = chr(34) & mycell.value & chr(34)
next mycell

End Sub

Chris wrote:

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

--

Dave Peterson


--

Dave Peterson