Add Multiple Excel Sheets in one embeded ole control

See more:

VB6

Dear sir



I am using ole control to add excel object.the code is

Dim xlAppl As Excel.Application
Dim xlWB As Object
Dim xlWS As Object
OLE1.CreateEmbed vbNullString,Excel.Sheet
Set xlWB = OLE1.object
Set xlWS = xlWB.Sheets(1)

but i want to add multiple sheets in this can anyone tell me how to do so


Thank You