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