Solved: Run time error 91

[austenr]

Trying to debug this:

[VBA]If Trim(ActiveWorkbook.ActiveSheet.Range("A1")) <> "Q1" Then
If Trim(ActiveWorkbook.ActiveSheet.Range("A3")) <> "Q1" Then
MsgBox "You must first download poll data before choosing this option.", vbOKOnly
Exit Sub
End If[/VBA]

The run time error 91 is on the first line fo code. Checked the help files with no luck.

[CodeMakr]

I don't get any error debugging the code supplied?? Which version of excel are you using?

[austenr]

2003. You dont get the error on compiling it. It happens at run time.

[CodeMakr]

Nope. put in standard workbook module, and it runs fine.

[austenr]

I'll post the whole module.

[VBA]Sub RunEngine()
' run this on menu operation
Dim strFilename As String
' set path for results file
strFilename = "C:\results.html"
' make sure correct add-in is loaded
If Not (AddIns("Analysis ToolPak - VBA").Installed = True) Then
AddIns("Analysis ToolPak - VBA").Installed = True
End If

' check to see if poll data loaded (check cell A1 for appropriate value)
If Trim(ActiveWorkbook.ActiveSheet.Range("A1")) <> "Q1" Then
If Trim(ActiveWorkbook.ActiveSheet.Range("A3")) <> "Q1" Then
MsgBox "You must first download poll data before choosing this option.", vbOKOnly
Exit Sub
End If
Else
ActiveWorkbook.ActiveSheet.Range("A1:A2").EntireRow.Insert
End If[/VBA]

[CodeMakr]

Runs fine for me??

[austenr]

This is a strange one. When it errors off the word "trim" on the line is highlighted.

[CodeMakr]

Don't know? I paste your code directly into a workbook module and run it. No problems at all?? Very strange indeed!

[CodeMakr]

VBA references maybe??

[Bob Phillips]

Check Tools>References to see if any are marked as MISSING

[paulked]

Runs fine on mine too!

[austenr]

Damn References Thanks Bob

[austenr]

Is there any difference in these two statements?

[VBA]trim("A1,A3")[/VBA]

and

[VBA]Trim(ActiveWorkbook.ActiveSheet.Range("A1", "A3"))[/VBA]