Try this..
it's a bit shorter
hope that isn't a probelm
<g
Sub Macro1()

Range("Final!A1").Value = _
Format(Range("Header!a2"), "00000") & _
Format(Range("Header!b2"), "0000") & _
Format(Range("Header!c2"), "000000") & _
Left(Range("Header!d2") & Space(20), 20) & _
Format(Range("Header!e2"), "00000000")
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


(tango) wrote:

dear all, pls help.

Branch No Customer Def Value Company Date
14213 0091 000100 ABC 15102004

should be this
142130091000100ABC 15102004

but when run macro is this
14213009100010015102004


thanks alot.