как использовать функцию из макроса?

Question

Я написал некоторую функцию с одним параметром.Я хочу вытащить ту же процедуру, но теперь из макроса.как мне это сделать?

Я хочу активировать функцию в «строке заметки»

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim InputRange, rng As Range
 Set InputRange = Range("I2:L11")
 For Each rng In InputRange.Cells
     If ((Target.Address = rng.Address) And (Target.Value <= 5 And Target.Value >= 1)) Then
         'use the function CTL
         Exit For
     End If
 Next rng

 Function CTL(a) As Range
      If IsEmpty(a.Value) = True Then
          MsgBox "ok"
      ElseIf IsNumeric(a.Value) = False Then
          MsgBox "non-numeric entry"
      ElseIf Int(a.Value) = False Then
          MsgBox "integer required"
      ElseIf a.Value > 5 Or a.Value < 1 Then
          MsgBox "valid values are between 1 and 5"
      Else:
          MsgBox "ok"

      End If

 End Function