Help with this
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
|