Search for cell equal to cell in another worksheet

Thanks Rylo. I think I can make that work. My challenge for this VBA noobie is to reformat/clear out the 'Print 6Day' cells in case I run the macro multiple times. I get a runtime error every time there's already a cardio workout copied into Print 6Day. A copy and paste of blank cells isn't working.

Any suggestions?

Hi

as you are taking your formats from the copied data, try

Sub aaa()
  Sheets("Print 6Day").Range("A4:H21").Clear
  Set findit = Sheets("Cardio Database").Cells.Find(what:=Range("B3").Value)
  findit.Offset(1, 0).Resize(18, 8).Copy
  With Sheets("Print 6Day")
    .Range("A4").PasteSpecial (xlPasteValues)
    .Range("A4").PasteSpecial (xlPasteFormats)
  End With
  
End Sub

rylo

works great. this small macro is gonna help me out tremendously. A few more additions, and it'll be all set up.