Sht1 = Sheets(i).Name
        Sht2 = Sheets(i + 1).Name
        Sheets(Array(Sht1, Sht2)).Copy
That's great, Roy!