UCase problem

I have been running this code for a while and I *think* this is the first
time running it under Acad2002 instead of 2000 but now I get a "Compile
error: Can't find project or library" message and the word "UCase" is
highlighted in the code below:

With ThisDrawing.Utility
.InitializeUserInput 1, "Vert Horiz"
strDirection = .GetKeyword(vbCr & "Lettered grid lines should run
[Vert/Horiz]: ")
Select Case UCase(strDirection)
...do stuff here

The help examples show it exactly like I have it, did something change that
Help isn't telling me about? Thanks.

 

Open the code in 2000 - C/P to CB or Notepad. Then open a new project in 2002 and paste the code in the new project and run it. See if that clears your problem.

FYI, I believe the problem stems from the fact you changed from VBA5 to VBA6 when you went from 2000 to 2002.

Joe
--

 

Open the code in 2000 - C/P to CB or Notepad. Then open a new project in
2002 and paste the code in the new project and run it. See if that clears
your problem.

VBA6 when you went from 2000 to 2002.
Worked beautifully, thanks Joe.

 

Cool, that confirms my theory.

Joe
--