try this

Sub trimem()
For Each c In Selection
c.Value = Application.Substitute(c, " ", "")
Next
End Sub

--
Don Guillett
SalesAid Software

"Mohamed" wrote in message
...
Hi,
How can i delete space between letters & numbers in each cell , i have
10000
row and i want to delete spaces between letters & numbers in each cell ,
and
i think that will take me alot of time to do it manualy.

Thanks