I need to get this working. (the problem is in red)

Pro_ID = frmProductReview.Spreadsheet2.Sheets("PID").Range("A" & frmProductReview.Spreadsheet2.Sheets("PID").Selection.Row).Text
Pro_ID should be equal to the text contained in the currently selected cell of the spreadsheet object on the form.