Problem in exporting data to 4th sheet

hi… im doing an agent which exports data to 8 worksheeets in an excel file… up to 3 sheets its done well… while exporting to 4th sheet im getting error

 "OLE: Automation Error"

set xlsheet4=excel.workbooks(1).Worksheets(4)

while executing this statement im getting problem…

if any one have idea… pls respond to this…

Subject: problem in exporting data to 4th sheet

'' try this...

Set xlsheet4 = xlworkbook.Worksheets.add()	

xlsheet4.Name = "---FOURTH SHEET---"		

xlsheet4.Activate

Subject: RE: problem in exporting data to 4th sheet

Thanks Rachhpal Jassal,

Its worked…