Find data on different Sheet

[Looping through]

Does anyone have a macro that will find a information on a different sheet
and make it etire row bold?

If activecell b2 on sheet 2 is found in sheet 1, make entire row on sheet 1
bold, then delete entire row on sheet 2.

Thanks

 

[Looping through]

Steve,

Thanks for your suggestion, but this is not working for me. I was hoping
this would be easy enough to insert into my existing string. This is what I
currently have and it works nicely if I start the code while Sheet 1 (Master
Log 2008) is active. But I would like this code to reconize if sheet 2
(Current Month Sales) is active to switch over to sheet 1, find the line
item selected in sheet 2 and continue.

Sub Lost_Quote()
' Macro recorded 5/19/2003 by Pete Wright

Dim rngToDelete As Range

Application.ScreenUpdating = False
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
With Selection.Font
.Name = "Arial"
.Size = 9
.Strikethrough = True
End With
ActiveCell.Offset(0, 11).Range("A1").Select
ActiveCell.FormulaR1C1 = "Lost"
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
End With

Set rngToDelete = Sheets("Current Month Sales").Cells.Find(What:=ActiveCell. _
Offset(0, -10).Value, LookIn:=xlFormulas, MatchCase:=False)
If rngToDelete Is Nothing Then
MsgBox "No Match"
Else
rngToDelete.EntireRow.Delete
End If
ActiveCell.Offset(0, -10).Select
End Sub

Thanks for your help.

 

[Looping through]

I appreciate your help.

I want the user to activate a cell in sheet 2 (B25 as an example), based on
contents of the active cell, I want to goto sheet 1, find the matching data
of the active cell in sheet 2 and then continue the rest of my code.

Can that be done?