Sub replaceblank()
For Each c In Selection
c.Value = Replace(c, " ", "")
Next
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
>I have a list of numbers which are written with a space between each set of
> numbers. Example: In cell A1 is: 12 13 14 15, in cell A2 is 23 16 17 00
[quoted text clipped - 4 lines]
> and 23161700? With either a formula, a macro, or a VBA module..... --
> LEG
LEG - 12 Nov 2007 17:09 GMT
Thanks ever so much. It worked!

Signature
LEG
"Don Guillett" skrev:
> Sub replaceblank()
> For Each c In Selection
[quoted text clipped - 10 lines]
> > and 23161700? With either a formula, a macro, or a VBA module..... --
> > LEG
Don Guillett - 12 Nov 2007 17:27 GMT
Glad to help

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Thanks ever so much. It worked!
>> Sub replaceblank()
[quoted text clipped - 13 lines]
>> > and 23161700? With either a formula, a macro, or a VBA module..... --
>> > LEG