Hello Gene

you may try


....
wbXL.Sheets("Sheet1").[g2] = "PP"
‘the above line does not work and returns Script out of range error

wbXL.Sheets("Sheet1").[g2] = objMailItem.ReceivedTime
....



Regards ,
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=398860