Old Format or Invalid Type Library

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Essentially, I'm trying to update the validation on a drop-down list.

Initially, the following code generated an Application error whenever I used
'range().select'. I've now removed this line, but the file seems to have
corrupted or something, such that any attempts to run other functions in the
project produce 'Old Format or Invalid Type Library' errors whenever I call
such fundamental things as the .usedrange attribute of the worksheet. This
now happens in all the other code in the project!

Function checkValidation(ByRef outstring As String)

Dim x As String
On Error Resume Next

x = Sheets("Criteria Report").Range("OGC_Owner").Validation.Formula1
Application.Goto ActiveSheet.Range("A1")
Application.Goto Reference:="OGC_Owner"

If Err.Number = 0 Then
'validation exists
ActiveCell.Validation.Delete
End If

On Error GoTo 0

Sheets("Criteria Report").Range("OGC_Owner").Validation.Add
Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween,
Formula1:=outstring

End Function


I appreciate that there's a few different problems here, but any
recommendations gratefully appreciated!

David
 
Also, I've searched around on messageboards for this error message, and it
seem to be referenced as a .NET or C++ error, but I'm not using either of
those!
 
I would check that you don't have any Missing references. In the VBIDE, goto
Tools>References, uncheck anything that has MISSING in it.

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Back
Top