Dim Ws As Worksheet
  Dim ix As Integer, it As Integer
  Set Ws = Sheets("½ÃÆ®¸ñ·Ï")

  With Ws
     it = Worksheets.Count
     .Columns("A:B").EntireColumn.ClearContents
     .Range("a1:b1") = Array("No", "½ÃÆ®¸í")

     For ix = 1 To it
        .Cells(ix + 1, 1) = ix
        .Cells(ix + 1, 2) = Sheets(ix).Name
    Next ix

    .Columns("A:B").EntireColumn.AutoFit

  End With