Change this:
For I = 2 To mysheets - 1