I copied this from the Extra help file and pasted it into an Excel module and it seemed to work.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Set Sys = CreateObject("EXTRA.System"

' Assumes an open session
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
CurrentRow = MyScreen.Row
CurrentCol = MyScreen.Col
MsgBox "The cursor is at " + Str$(CurrentRow) + "," + Str$(CurrentCol) + "."
End Sub
Copyright 1996 - 2000, Attachmate Corporation. All rights reserved.