Ikeep getting an object required error on the rngDieLook line. Can anyone
help me.

Private Sub CommandButton1_Click()

strTarget = UserForm1.TextBox1.Value
rngTargetCell = Worksheets(2).Range("A:A").Find(strTarget).Address

rngDieLook = Range(rngTargetCell.Offset(1, 0), rngTargetCell.Offset(4,
0)).Find("Die").Address

MsgBox rngDieLook