Can't understand why this doesn't work...
Range(ActiveCell, ActiveCell.Offset.End(xlDown).Offset.End(xlToRight)).Select
PartID = Range(ActiveCell, ActiveCell).Offset(0, -2).Value
MsgBox (PartID)
Selection.Name = PartID
I selected a range of cells; set 'PartID' to pick up the value...