Hsieh

¦^´_ 1# irenemak2007

1. Sub nn()
   
2. For Each sh In Sheets
   
3. With sh
   
4. If .[A1] <> "" Then .Name = CStr(.[A1])
   
5. End With
   
6. Next
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# irenemak2007

1. Sub nn()
   
2. With Sheet1
   
3. For Each a In .Range(.[A1], .[A65536].End(xlUp))
   
4.    i = i + 1
   
5.    If i <= Sheets.Count Then
   
6.       Sheets(i).Name = a
   
7.       Else
   
8.       With Sheets.Add(after:=Sheets(Sheets.Count))
   
9.         .Name = a
   
10.       End With
    
11.     End If
    
12. Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X