Hello TravelByFirework,
The problem lies with your code NamesCbx_Click(). Both drop downs are referencing the same cell on the "Template" worksheet. To get the ComboBox to look at the Range on the same sheet as it is on, use the Me keyword to identify the worksheet.
Private Sub NamesCbx_Click()
Dim ScrSheetName As String
Dim wsReciever As Worksheet
ScrSheetName = Worksheets("Lookup").Range("D4").Value
If Me.Name = "Template" Then
Exit Sub
Else
'Set SearchITResources = Sheets("IT Resources")
FindString = Worksheets("Lookup").Range("D3").Value
'Dim MyRng As Range
'Dim SearchTabName As String
'Set MyRng = Worksheets("Lookup").Range("Names")
Set wsReceiver = Sheets(ScrSheetName)
If Trim(FindString) <> "" Then
With wsReceiver.Range("A:A") 'searches all of column A
Set Rng = .Find(What:=FindString, _
after:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then 'value found copy hours to Total Wk Estimates
MsgBox ("The resource you have selected already exists on this tab. Pease modify the existing resource row with the revised estimates.")
Exit Sub
Else
Call AddResourceToCopy(ScrSheetName, FindString)
End If
End With
End If
End If
End Sub
Bookmarks