Set nn = Sheets(Sheet1).Range(a4)