<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>OT: Excel Goto method</TITLE>
<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=428242815-12082003><FONT face=Arial color=#0000ff size=2>Maybe
oApp should be :</FONT></SPAN></DIV>
<DIV><SPAN class=428242815-12082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=428242815-12082003><FONT face=Arial color=#0000ff size=2>Set
oApp = CreateObject("Excel.Application") 'or GetObject</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN
class=428242815-12082003>HTH</SPAN>,</FONT></FONT> </DIV>
<P><FONT face=Arial size=2>Jim DeMarco</FONT> <BR><FONT face=Arial
size=2>Director of Product Development</FONT> <BR><FONT face=Arial
size=2>HealthSource/Hudson Health Plan</FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk]<BR><B>Sent:</B> Tuesday, August 12, 2003
11:12 AM<BR><B>To:</B> AccessD
(AccessD@databaseadvisors.com)<BR><B>Subject:</B> [AccessD] OT: Excel Goto
method<BR><BR></FONT></DIV>
<P align=left><FONT face=Arial size=2>Any Excel gurus out there who can tell
me why this:</FONT></P>
<P align=left><FONT face=Arial size=2>oApp.Goto
Reference:=shtCurr.Range("qryF1")</FONT></P>
<P align=left><FONT face=Arial size=2>would return an</FONT> <FONT face=Arial
size=2>'</FONT><FONT face=Arial size=2>Application-defined or object-defined
error</FONT><FONT face=Arial size=2>'</FONT><FONT face=Arial
size=2>??</FONT></P>
<P align=left><FONT face=Arial size=2>TIA</FONT></P>
<P align=left><FONT face=Arial size=2>Roz</FONT></P>
<P align=left><FONT face=Arial size=2>(</FONT><FONT face=Arial
size=2>PS</FONT> <FONT face=Arial size=2>the full code is</FONT></P>
<P align=left><FONT face=Arial size=2> Set oBook =
GetObject("I:\IT\Systems Dev\Jobs\821GFGMIS\BBS Format UKI
Donns.xls")</FONT></P>
<P align=left><FONT face=Arial size=2> Set oApp =
oBook.Parent</FONT></P>
<P align=left><FONT face=Arial size=2> Set shtCurr =
oBook.Sheets(Format(Forms!frmGreenFlag!txtBeginningDate, "mmmm"))</FONT></P>
<P align=left><FONT face=Arial size=2> </FONT></P>
<P align=left><FONT face=Arial size=2> oApp.Goto Reference:=shtCurr.Range("qryF1")</FONT></P>
<P align=left><FONT face=Arial size=2>with qryF1 being a single-cell range
which exists on all the sheets in the workbook</FONT><FONT face=Arial size=2>.</FONT><FONT face=Arial size=2>)</FONT></P></BLOCKQUOTE><FONT SIZE=3><BR>
<BR>
***********************************************************************************<BR>
"This electronic message is intended to be for the use only of the named recipient, and may contain information from Hudson Health Plan (HHP) that is confidential or privileged. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited. If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message. Thank You".<BR>
***********************************************************************************<BR>
</FONT>
</BODY></HTML>