Thread: "Can't find project or library"

I am getting a complie error that I did not get when the code was written. Earlier versions of the same workbook still work fine without error. I hope thie workbook is not corrupted.

The error happens with the None command in this code for a button in a user form.

Private Sub cmdConfirm_Click()
Unload Me
Range("$A$45:$G$152").Value = ""
Range("$E$39").Value = "0"
Range("$A$41:$G$152").Font.Bold = False
Range("$D$41:$G$152").Interior.Color = RGB(255, 255, 204)
Range("$D$41:$G$152").Borders.LineStyle = None
End Sub

proepert,

Try:

Range("$D$41:$G$152").Borders.LineStyle = xlNone

I'm also getting the same error message with the LCase command in the code below.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Address = "$O$36" Then
            If LCase(.Value) = "yes" Then
                Range("$O$37:$O$44").Value = "Yes"
            Else
                Range("$O$37:$O$44").Value = "No"
            End If
        End If
    End With
End Sub

I tried adding xl to LCase but the error continues. Thank you for your help.

Excel 2000

proepert,

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$36" Then
    If LCase(Target) = "yes" Then
        Range("$O$37:$O$44").Value = "Yes"
    Else
        Range("$O$37:$O$44").Value = "No"
    End If
End If
End Sub

In the VBE, Tools > References, look for one that begins with MISSING and untick it.