I have this code (below) that runs great on two of three PC's but the 3rd PC keeps getting a "compile error - project or library not found:". I've done a little research and most results came up referencing with VBIDE. Problem is I have no idea where or what that is yet. Can someone help me fix this and maybe help me understand what VBIDE is?
This is where it is getting the compile error
This is where it is getting the compile error
Code:
For Each cell In Range("C:D")
Code:
Dim myItem As String, myRNG As Range, NewLoc As String
Dim Found As Range, RackSht As Worksheet
Dim PCode As String, Lot As String
Set RackSht = Sheets("Rack Chart")
'Search for Product Code or Lot Number
myItem = InputBox("Enter what you would like to search for.", "Search", "Enter Here")
If StrPtr(myItem) = 0 Then
MsgBox "This action was canceled"
Exit Sub
Else
If myItem = vbNullString Then
MsgBox "There was no entries made to the inputbox. Try again"
Exit Sub
Else
End If
End If
Sheets("List").Select
For Each cell In Range("C:D")
If cell.Value = myItem Then
Set tstRNG = ActiveCell.Offset(0, 1)
If MsgBox("Is " & cell.Value & "/" & cell.Offset(0, 1).Value & " what you searching for?", vbYesNo) = vbYes Then
GoTo myNEXT
Else
End If
End If
Next cell
Exit Sub
''------------------------------------------------------------
myNEXT:
Range("F" & cell.Row).Select
NewLoc = ActiveCell.Value
Sheets("Rack Chart").Select
Application.ScreenUpdating = True
ActiveSheet.Shapes(NewLoc).Select
'Turn Selection YELLOW
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
MsgBox ("The location of your item is " & NewLoc)
'Turn Selection back to BROWN
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(153, 102, 51)
.Transparency = 0
.Solid
End With
Range("a1").Select