Hsieh

Sub Sel_Sheet()
Dim Sh As Worksheet, Ar(), Ay(), s%, x%
For Each Sh In Sheets
  If Sh.Index Mod 2 = 1 Then
Sh.Tab.ColorIndex = 3
   ReDim Preserve Ar(s)
    Ar(s) = Sh.Name
    s = s + 1
    Else
    Sh.Tab.ColorIndex = 6
    ReDim Preserve Ay(x)
    Ay(x) = Sh.Name
    x = x + 1
  End If
Next
Sheets(Ar).Select
MsgBox "©_¼Æ­¶³Q¿ï¨ú"
Sheets(Ay).Select
MsgBox "°¸¼Æ­¶³Q¿ï¨ú"
End Sub