シート名の変更

あまり使わないが、セルに新しいシート名を入力して変更するマクロを・・・
さらにシートタブの色も変更させてみた(これはオマケ)

Sub シート名変更()
 Dim mySnum As Integer
 Dim i As Integer

  mySnum = ActiveSheet.Range("a65536").End(xlUp).Row

 For i = 1 To mySnum
   With Sheets(i)
     .Name = Cells(i, 1).Value
     .Tab.ColorIndex = i + 3 '色は何でもよかった・・・
   End With
 Next
End Sub
e0080122_10544135.gif

[PR]
by slayer0210 | 2005-11-29 10:55 | マクロ


<< タイマー(未完成) セルの値をコメントに置き換え >>