Sub Quotize()
Dim var As Variant
Dim rng As Range
Const lngColOffset As Long = 0 'Use 0 if you want to overwrite the cell
value
Application.ScreenUpdating = 0
Set rng = Range("B1:B10")
var = Application.Transpose(rng.Value)
For Each rng In rng
With rng.Offset(
reply to me with your file.
dguillett1 @gmail.com
Don Guillett
SalesAid Software
dguille...@gmail.com
From: ajinkya natu
Sent: Wednesday, December 07, 2011 8:38 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Single Quotes at the Start and End of the data in a
cell
Hello All,
