Thread: compile error
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Tim Zych Tim Zych is offline
external usenet poster
 
Posts: 389
Default compile error

In the problem machine, are there any MISSING references?

--
Tim Zych
www.higherdata.com
Compare data in Excel and find differences with Workbook Compare
A free, powerful, flexible Excel utility
Now with Table Compare for quick table comparisons


"ranswrt" wrote in message
...
I went to the Tools - References but I'm not sure which option to uncheck.
I'm also not sure what a required reference is. I'm new at this.

"Tim Zych" wrote:

Classic compilation problem with a MISSING reference. Uncheck the MISSING
reference in the VBE's Tools - References. If this is not a required
reference, uncheck it in the source / development copy too.

--
Tim Zych
www.higherdata.com
Compare data in Excel and find differences with Workbook Compare
A free, powerful, flexible Excel utility
Now with Table Compare for quick table comparisons


"ranswrt" wrote in message
...
I have a spreadsheet program that I have been working on. I wanted to
test
it on another computer so to see how it would work. When I run it on
another
computer I get the following compile error:

Can't find project or library.

Here is the part of the procedure that it stops on

If TextBox2.Value = "" Then
CommandButton6.Enabled = False
Else
teststr = TextBox2.Text

For i = 1 To Len(teststr)
testchar = UCase(Mid(teststr, i, 1))
'MsgBox (TestChar)
If testchar = " " Then
CommandButton6.Enabled = True
Else
If Asc(testchar) < Asc("A") Or _
Asc(testchar) Asc("Z") Then
MsgBox "You need to enter Letters only for the Database
Name!", vbExclamation
CommandButton6.Enabled = False
TextBox2.Value = ""
Exit For
End If
CommandButton6.Enabled = True
End If
Next i
End If

It stops on 'Mid' on this part of this code

UCase(Mid(teststr, i, 1))

Any ideas on why it won't run this?
Thanks