This should work.

Sub fndOthWb()
x = ActiveCell.Value
With Workbooks(2).Sheets(1).UsedRange
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
Else
ActiveCell.Delete
End If
End With
End Sub

"nannon8" wrote:

I am trying to put together some code that will search a specific
workbook for data, and if that data is not present in that workbook to
delete the data in the current workbook.

Can anyone help with this?