<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 10">
<meta name=Originator content="Microsoft Word 10">
<link rel=File-List href="cid:filelist.xml@01C360F0.0BED8980">
<title>OT: Excel Goto method</title>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:1627421319 -2147483648 8 0 66047 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
h1
{mso-style-next:Normal;
margin-top:12.0pt;
margin-right:0cm;
margin-bottom:3.0pt;
margin-left:21.6pt;
text-indent:-21.6pt;
mso-pagination:widow-orphan;
page-break-after:avoid;
mso-outline-level:1;
mso-list:l0 level1 lfo2;
tab-stops:list 21.6pt;
font-size:12.0pt;
mso-bidi-font-size:16.0pt;
font-family:Arial;
mso-font-kerning:16.0pt;
mso-ansi-language:EN-GB;
font-weight:bold;}
h2
{mso-style-update:auto;
mso-style-next:Normal;
margin-top:12.0pt;
margin-right:0cm;
margin-bottom:3.0pt;
margin-left:28.8pt;
text-indent:-28.8pt;
mso-pagination:widow-orphan;
page-break-after:avoid;
mso-outline-level:2;
mso-list:l0 level2 lfo2;
tab-stops:list 28.8pt;
font-size:11.0pt;
mso-bidi-font-size:14.0pt;
font-family:Arial;
mso-ansi-language:EN-GB;
font-weight:bold;
mso-bidi-font-style:italic;}
p.MsoTitle, li.MsoTitle, div.MsoTitle
{mso-style-update:auto;
margin-top:12.0pt;
margin-right:0cm;
margin-bottom:3.0pt;
margin-left:18.0pt;
mso-pagination:widow-orphan;
mso-outline-level:1;
font-size:16.0pt;
font-family:Arial;
mso-fareast-font-family:"Times New Roman";
mso-font-kerning:14.0pt;
mso-ansi-language:EN-GB;
font-weight:bold;}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle19
{mso-style-type:personal-reply;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:navy;}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:2014408913;
mso-list-template-ids:-1194055714;}
@list l0:level1
{mso-level-style-link:"Heading 1";
mso-level-text:%1;
mso-level-tab-stop:21.6pt;
mso-level-number-position:left;
margin-left:21.6pt;
text-indent:-21.6pt;}
@list l0:level2
{mso-level-style-link:"Heading 2";
mso-level-text:"%1\.%2";
mso-level-tab-stop:28.8pt;
mso-level-number-position:left;
margin-left:28.8pt;
text-indent:-28.8pt;}
@list l0:level3
{mso-level-text:"%1\.%2\.%3";
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
margin-left:36.0pt;
text-indent:-36.0pt;}
@list l0:level4
{mso-level-text:"%1\.%2\.%3\.%4";
mso-level-tab-stop:43.2pt;
mso-level-number-position:left;
margin-left:43.2pt;
text-indent:-43.2pt;}
@list l0:level5
{mso-level-text:"%1\.%2\.%3\.%4\.%5";
mso-level-tab-stop:50.4pt;
mso-level-number-position:left;
margin-left:50.4pt;
text-indent:-50.4pt;}
@list l0:level6
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6";
mso-level-tab-stop:57.6pt;
mso-level-number-position:left;
margin-left:57.6pt;
text-indent:-57.6pt;}
@list l0:level7
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7";
mso-level-tab-stop:64.8pt;
mso-level-number-position:left;
margin-left:64.8pt;
text-indent:-64.8pt;}
@list l0:level8
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7\.%8";
mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
margin-left:72.0pt;
text-indent:-72.0pt;}
@list l0:level9
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7\.%8\.%9";
mso-level-tab-stop:79.2pt;
mso-level-number-position:left;
margin-left:79.2pt;
text-indent:-79.2pt;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple style='tab-interval:36.0pt'>
<div class=Section1>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Nope, that construction is OK.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Turns out I had a hanging Excel process -
<span class=SpellE>doh</span>!<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Thanks for the suggestion<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Roz<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'>-----Original Message-----<br>
<b><span style='font-weight:bold'>From:</span></b> Jim DeMarco
[mailto:Jdemarco@hshhp.org] <br>
<b><span style='font-weight:bold'>Sent:</span></b> 12 August 2003 16:29<br>
<b><span style='font-weight:bold'>To:</span></b> Access Developers discussion
and problem solving<br>
<b><span style='font-weight:bold'>Subject:</span></b> RE: [AccessD] OT: Excel
Goto method</span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<div>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=blue
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:blue'>Maybe
oApp should be :</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-left:36.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> <o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=blue
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:blue'>Set oApp
= CreateObject("Excel.Application") 'or GetObject</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-left:36.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> <o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'>HTH,</span></font> <o:p></o:p></p>
</div>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Jim DeMarco</span></font> <br>
<font size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'>Director
of Product Development</span></font> <br>
<font size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'>HealthSource/Hudson
Health Plan</span></font> <o:p></o:p></p>
<blockquote style='margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'>
<p class=MsoNormal style='mso-margin-top-alt:0cm;margin-right:0cm;margin-bottom:
12.0pt;margin-left:36.0pt'><font size=2 face=Tahoma><span style='font-size:
10.0pt;font-family:Tahoma'>-----Original Message-----<br>
<b><span style='font-weight:bold'>From:</span></b> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk]<br>
<b><span style='font-weight:bold'>Sent:</span></b> Tuesday, August 12, 2003
11:12 AM<br>
<b><span style='font-weight:bold'>To:</span></b> AccessD
(AccessD@databaseadvisors.com)<br>
<b><span style='font-weight:bold'>Subject:</span></b> [AccessD] OT: Excel Goto
method</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Any Excel gurus out there who can tell me why this:</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>oApp.Goto Reference:=shtCurr.Range("qryF1")</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>would return an</span></font> <font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>'Application-defined
or object-defined error'??</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>TIA</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Roz</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>(PS</span></font> <font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'>the full code is</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> Set oBook =
GetObject("I:\IT\Systems Dev\Jobs\821GFGMIS\BBS Format UKI
Donns.xls")</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> Set oApp = oBook.Parent</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> Set shtCurr =
oBook.Sheets(Format(Forms!frmGreenFlag!txtBeginningDate, "mmmm"))</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> </span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> oApp.Goto
Reference:=shtCurr.Range("qryF1")</span></font><o:p></o:p></p>
<p style='margin-left:36.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>with qryF1 being a single-cell range which exists on
all the sheets in the workbook.)</span></font><o:p></o:p></p>
</blockquote>
<p class=MsoNormal style='margin-left:36.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><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>
***********************************************************************************<o:p></o:p></span></font></p>
</div>
</body>
</html>