IT gives error
object value set to nothing what is wrong

MyScreen.Area(1,10,1,14).Value = Trim(aSheet.Cells(4, "e"))