Try something like

Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange.Columns(1). _
SpecialCells(xlCellTypeConstants).Cells
Rng.Value = "\\" & Rng.Text
Next Rng



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"MAWII" wrote in message
...
I have a spreadsheet with 732 entries in column A. I want to
create a macro
that will add a "\\" to the beginning of each entry. I also
want it done
only for non-blank cells. How can I do this? Thanks!