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.