software

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(quot;A:Aquot;).Find(strTarget).Address

rngDieLook = Range(rngTargetCell.Offset(1, 0), rngTargetCell.Offset(4,
0)).Find(quot;Diequot;).Address

MsgBox rngDieLook

Do you want rngTargetCell to be a range or a string variable?
--
Gary's Studentquot;aftamathquot; wrote:

gt; Ikeep getting an object required error on the rngDieLook line. Can anyone
gt; help me.
gt;
gt; Private Sub CommandButton1_Click()
gt;
gt; strTarget = UserForm1.TextBox1.Value
gt; rngTargetCell = Worksheets(2).Range(quot;A:Aquot;).Find(strTarget).Address
gt;
gt; rngDieLook = Range(rngTargetCell.Offset(1, 0), rngTargetCell.Offset(4,
gt; 0)).Find(quot;Diequot;).Address
gt;
gt; MsgBox rngDieLook

Yes, a range object. Same with rngDieLook.

quot;Gary''s Studentquot; wrote:

gt; Do you want rngTargetCell to be a range or a string variable?
gt; --
gt; Gary's Student
gt;
gt;
gt; quot;aftamathquot; wrote:
gt;
gt; gt; Ikeep getting an object required error on the rngDieLook line. Can anyone
gt; gt; help me.
gt; gt;
gt; gt; Private Sub CommandButton1_Click()
gt; gt;
gt; gt; strTarget = UserForm1.TextBox1.Value
gt; gt; rngTargetCell = Worksheets(2).Range(quot;A:Aquot;).Find(strTarget).Address
gt; gt;
gt; gt; rngDieLook = Range(rngTargetCell.Offset(1, 0), rngTargetCell.Offset(4,
gt; gt; 0)).Find(quot;Diequot;).Address
gt; gt;
gt; gt; MsgBox rngDieLook