Changes with Excel 2003
 

I had a program written in the previous version of Excel
that included 3 separate files the interacted with each
other (one called up the other 2 based on a password
entered, menu options within each would call the others,
etc.). When I upgraded to Excel 2003, the files no longer
automatically upload. The code gets hung up and I cannot
figure out where the issue is. I am assuming it's just a
slight change in how Excel 2003 coding describes disk
drives or whatever. Anyone help?

Changes with Excel 2003
 

HI Brett what happens when you hit debug ?

"Brett"
N10
wrote in message
...
I had a program written in the previous version of Excel
that included 3 separate files the interacted with each
other (one called up the other 2 based on a password
entered, menu options within each would call the others,
etc.). When I upgraded to Excel 2003, the files no longer
automatically upload. The code gets hung up and I cannot
figure out where the issue is. I am assuming it's just a
slight change in how Excel 2003 coding describes disk
drives or whatever. Anyone help?


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.766 / Virus Database: 513 - Release Date: 17/09/2004

Changes with Excel 2003
 

Thanks for replying.

After trying to run the code, I first get a window saying: "Compile
error: Can't find project or library". Note that this worked fine in
the previous version of Excel (which I have at home, but cannot use at
work).

I must admit here that I am far from proficient in VB. I next hit the
Toggle to see which statement is failing, and this is what is
highlighted:

If UCase(TextBox1.Value) = "ADMIN" Then

within this group...

Public Sub OKButton_Click()
Dim NoGood As Boolean
NoGood = True
CheckUser.Hide
If UCase(TextBox1.Value) = "ADMIN" Then
Application.Goto Reference:="Logname"
ActiveCell.FormulaR1C1 = "ADMIN"
Application.Goto Reference:="ULFile1"
ActiveCell.FormulaR1C1 = "C:\FHC Simulation\FHC Admin File
2.xls"
Application.Goto Reference:="ULFile2"
ActiveCell.FormulaR1C1 = "C:\FHC Simulation\FHC Admin File
3.xls"
NoGood = False
End If

...all file locations have been verified, etc.

Does this help?



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!