Hsieh

¦^´_ 1# º}¬y¤ì

1. Sub ¤¤³~ÂI¿ï()
   
2. Dim s As Date, A As Range
   
3. t = Now
   
4. Do Until s >= 1 / 11520
   
5. s = Now - t
   
6. If s >= 1 / 34560 And A Is Nothing Then Set A = Application.InputBox("½ÐÂI¿ïÀx¦s®æ", , , , , , , 8)
   
7. Loop
   
8. If Not A Is Nothing Then MsgBox A.Address
   
9. End Sub
   
10. Sub §ó¦W()
    
11. Dim n As Name
    
12. For Each n In ThisWorkbook.Names
    
13.   If n.RefersToRange.Address = "$A$2" Then myname = n.Name: Exit For
    
14. Next
    
15. If myname = "" Then MsgBox "A2ÁÙ¨S«Ø¥ß¦WºÙ": Exit Sub
    
16. newname = InputBox("½Ð¿é¤J·s¦WºÙ", , myname)
    
17. ThisWorkbook.Names(myname).Name = newname
    
18. ActiveSheet.Cells.Replace myname, newname
    
19. End Sub

½Æ»s¥N½X