Sub MATCC()

 

'Extra Screen Object

Dim ExtraScreen As Object

'On Error GoTo ErrorThis

Set ExtraScreen = CreateObject("EXTRA.System").ActiveSession.Screen

'Assumes an open Extra Session

 

'Excel Worksheet object

Dim FinanceSheet As Worksheet

Set FinanceSheet = Workbooks("AutoFinancialCalculator_v0.01").Worksheets(1)

'Assumes named workbook is open

 

ExtraScreen.SendKeys "<Home>WCAD<Enter>"

ExtraScreen.WaitHostQuiet (g_HostSettleTime)

 

 

For ExtraPage = 1 To 2

    FinanceSheet.Cells(ExtraPage, 1).Value = ExtraScreen.Area(1, 1, 24, 80, 1, 3).Value

    ExtraScreen.SendKeys "<Home>IAPS<Enter>"

    ExtraScreen.WaitHostQuiet (g_HostSettleTime)

Next ExtraPage

 

End Sub