Found it myself incase anyone needs to know
Private Sub Command??_Click()
OpenExcelFile ("FileLocation.xls")
Dim objXL As Object
On Error Resume Next
Set objXL = GetObject(, "Excel.Application")
Set objXL = GetObject(strPathToFile)
objXL.Application.Visible = True
objXL.Parent.Windows(1).Visible = True
End Sub