GBKEE

¦^´_ 1# sunnyso

1. Option Explicit          'Lines 1  '¤u¨ã->¿ï¶µ:¦p¦³¤Ä¿ï ­n¨DÅܼƫŧi, ¼Ò²Õ·|¦Û°Ê¿é¤JSub Ex()
   
2.     With Sheets.Add(, Sheets(Sheets.Count))
   
3.         With ThisWorkbook.VBProject.VBComponents(.CodeName).CodeModule
   
4.             .InsertLines 2, "Private Sub Worksheet_Change(ByVal Target As Range)"
   
5.             .InsertLines 3, "IF Target.Address = ""$A$1"" Then MsgBox ""$A$1 Changed"""
   
6.             .InsertLines 4, "End Sub"
   
7.         End With
   
8.     End With
   
9. End Sub

½Æ»s¥N½X