yen956

¦^´_ 1# av8d
'½Ð±N¤U¦C©ñ¦bSheet1 , ¤£­n©ñ Module1
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I, j As Integer, Rng As Range
    If Not Intersect(Target, [B5]) Is Nothing Then
        If Application.IsNumber([B5]) Then
            Application.Run "Book1!look" & [B5] & ""
        End If
    End If
End Sub

'½Ð±N¤U¦C©ñ¦b Module1, ¤£­n©ñ Sheet1
Sub look1()
   MsgBox "look1"
End Sub
Sub look2()
   MsgBox "look2"
End Sub
Sub look3()
   MsgBox "look3"
End Sub
Sub look4()
   MsgBox "look4"
End Sub
Sub look5()
   MsgBox "look5"
End Sub

'µM«á¸Õ Sheet1 ªº [B5]