ahhh - got it
Code:
Selection.Value = Pcode