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