For Each sh In Worksheets(myArray)
    sh.select
    sh.Range("D1").Select