Dim LastRow As Long
Dim i As Long

With ActiveSheet

.Cells(.Rows.Count,"A").End(xlUp).Row
For i = 1To LastRow

.Cells(i,"A").Value = Trim(.Cells(i,"A").Value)
Next i

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"rexmann" wrote in message
...
Hi All

Is it possible to delete the space at the beginning of a cell of data? I
have a list of addresses for a mail merge and some (not all) have a space
at
the beginning of the data. Ideally the find and replace (rather than a
formula) would be best.

Example (in the first one the address has a space):
1 Corsica Street
22 High Street

Any help greatly appreciated

Kind regards

Rexmann