"Can't find project or library" error

[TraceyH]

Hi all. I've been using the sript below with no issues but it has now decided to pop up the message "Can't find project or library" whenever you enter anything new in any cell in the worksheet - what am I doing wrong?! When I go into the References - VBAProject popup box, MS tells me I should see unresolved references prefixed with MISSING but there aren't any?!



The code I'm using is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("D1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

[Bob Phillips]

You probably have an invalid reference.

Go to the Tools>References menu option in the VBIDE, and you should see an item in error. Just uncheck it.

[Paul_Hossler]

Hi all. I've been using the sript below with no issues but it has now decided to pop up the message "Can't find project or library" whenever you enter anything new in any cell in the worksheet - what am I doing wrong?! When I go into the References - VBAProject popup box, MS tells me I should see unresolved references prefixed with MISSING but there aren't any?!

I've had some otherwise well-behaved VBA intrinsic functions like Left() start throwing that error with nothing amiss in References

I've usually be able to get rid of it by using AppsPro code cleaner

http://www.appspro.com/Utilities/CodeCleaner.htm


There's also a sticky on this

http://www.vbaexpress.com/forum/show...ect-or-Library

[TraceyH]

Hiya - thanks for getting back to me, but I've tried that and there are no references marked as MISSING?Screenshot 2022-02-01 134101.jpg

[snb]

Me thinks you're using audacious code: Set Target = Range("D1")
You'd better:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target <> "" Then name =left(target,31)
End Sub

or

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target <> "" Then name =left(cells(1,4),31)
End Sub

[Paul_Hossler]

Hiya - thanks for getting back to me, but I've tried that and there are no references marked as MISSING?

1. Did you scroll all the way to the botton?

2. I see a lot of VBAProject lines. Are there other workbooks open?

3. And of course, there's the always popular "Have you restarted your computer?"