Reports

I was offsetting by 1 column too much. In addition, Sheets(1) does not refer to Sheet1 in excel, I have no specified the sheet name. The error is given when nothing can be found, I prevented this with a Try & Catch Error combo. Working code:

^+F1::
{
Try {

title := WinGetTitle("A") ; Works
UniqueRef := Trim(SubStr(title,1,InStr(title," (")-1)) ; Works

xl.Sheets("CURRENT").Range("A:A").Find(UniqueRef).Offset(0,10).Value := ComObjActive("Excel.Application").ActiveCell.Value ;WORKS!
} Catch Error {

    msgbox "Unable to locate reference.","Error."

}
Return
}

79145111