GBKEE

¦^´_ 1# enoch
Ãþ¦ü³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlSheetName As String
   
4.     On Error GoTo xlErr
   
5.     xlSheetName = "§Úªº¤u§@­¶"                '¤u§@ªíªº¦WºÙ
   
6.     Sheets(xlSheetName).Activate
   
7.     Exit Sub
   
8. xlErr:
   
9.     If Err = 9 Then
   
10.         If MsgBox("[ " & xlSheetName & " ]  ¤£¦s¦b " & Chr(10) & "·s¼W [ " & xlSheetName & " ] ?", vbYesNo) = vbYes Then
    
11.             ActiveWorkbook.Sheets.Add.Name = xlSheetName
    
12.             Resume
    
13.         End If
    
14.     End If
    
15.     MsgBox "µ{¦¡¤¤Â_"
    
16. End Sub

½Æ»s¥N½X