IFCOM Automation - Add a worksheet

[rasa]

I am using IFCOM, IFWIN and Module Wizard to interface with Microsoft Excel Object Library. I have developed code based on the AUTODICE example and with help from other threads in ifort forum.

I am trying to add a new worksheet to an existing Excel workbook. I am not able to do it successfully. Can someone please help me to figure this out ?

Thanks.

Sample Code from the project below is pasted here.:

!-------------------------------------------------------------------------------
! Try adding a new Worksheet
!-------------------------------------------------------------------------------
!** This does not work.
! All I am trying to do is to add a worksheet to the same workbook and then
! activate the worksheet.
worksheet = Worksheets_Add(workbooks, $STATUS = status)
call Ex_CheckStatus(status, ' Unable to Add Excel Worksheet Object. Aborting ...')
worksheet = $Workbook_GetActiveSheet (workbook, status)
call $Worksheet_SetName(worksheet, 'Data-Sheet-2', $STATUS = status)