Assign and Display a Form Value from a Worksheet based on a Match of another form value against a Worksheet Range

Question

Private Sub invItem_AfterUpdate()
 Dim sh As Worksheet
\' Dim ckItem As Long

 Set sh = ThisWorkbook.Sheets("ACS_Report")
With Me
\' ckItem = sh.Range(&quo