Try

Set rng1 = Cells(res, 5)


assuming res is a valid number

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"ssjody" wrote in
message ...

I get a type mismatch error on Set rng1 = rng(res, 5)
How do I fix this? Thanks Jody

Private Sub CommandButtonPriceNext_Click()
Dim rng As Range, rng1 As Range, res As Variant
Set rng = Range("PriceBookDatabase")
res = Application.VLookup(Label1stICLabel.Caption, rng, 1, False)
If Not IsError(res) Then
Set rng1 = rng(res, 5)
rng1.Value = Me.TextBoxGradeA_RetailValue.Text
End If
MultiPage2.Value = 15
End Sub


--
ssjody
------------------------------------------------------------------------
ssjody's Profile:
http://www.excelforum.com/member.php...o&userid=33398
View this thread: http://www.excelforum.com/showthread...hreadid=567801