Try this instead:

icell2 = ActiveSheet.Range(Cells(x, 2)).Text