typos!

Sub foo()
dim MyDate as date
dim MyCurr as currency
MyCurr = 123.45
MyDate = Now
[a1].Value = MyDate
[b1].Value2 = MyDate
[a2].Value = MyCurr
[b2].Value2 = MyCurr
end sub

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam