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
ToolsReferences, uncheck anything that has MISSING in it.

--

HTH

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


"David" wrote in message
...
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