Macro help.

[runchie]

I am looking to use the contents of my clipboard as a paramater to find.

I have some columns of data

Last|First|Dept|Empl#|Badge1|

and i have a column of data

badge2|

for each cell in badge2 i need to search for the the contents in the Badge1 and if its found i want to highlight the entire row.

Any help would be AWESOME

 

[runchie]

this is what i have.

It seems to work. but it there a more effeciant way of doing it?

Sub Eight()
Dim myRange As Range
Dim oCell As Object
Application.ScreenUpdating = False
Set myRange = ActiveSheet.Range("H1:" & ActiveSheet.Range("H65536"). _
   End(xlUp).Address)
For Each oCell In myRange
If Not oCell.Value = "" Then
Range("E:E").Select
Selection.Find(What:=oCell, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        ActiveCell.Offset(0, 1).Select
        Range(ActiveCell, ActiveCell.Offset(0, -5)).Select
        Selection.Copy
        oCell.Offset(0, 1).Select
        ActiveSheet.Paste
 
 
ElseIf oCell.Value = "" Then GoTo JumpOut
End If
Next oCell
JumpOut:
Range("A1").Activate
Application.ScreenUpdating = True
End Sub