Close:
LengthNAAMS = NSheet.Cells(S.Row, 7).Value