Maybe ...

Code:
--------------------
Sub TEST()
Dim aryPartDes(0 To 25) As Range
Dim aryPartQty(0 To 25) As Variant

If ActiveSheet.CheckBox1 = True Then
' TopDoor
Set aryPartDes(0) = PartInfo("EXT00011742")
aryPartQty(0) = tbxCabSizeWft + tbxCabSizeWins / 12

MsgBox aryPartDes(0).Cells(3).Value
End If
End Sub

Public Function PartInfo(PartNumber As String) As Range
Dim lngRow As Long

With Sheets("Parts List")
lngRow = WorksheetFunction.Match(PartNumber, .Range("A:A"), 0)
Set PartInfo = .Range(.Cells(lngRow, "A"), .Cells(lngRow, "D"))
End With
End Function
--------------------


--
shg
------------------------------------------------------------------------
shg's Profile: http://www.thecodecage.com/forumz/member.php?userid=13
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=25569