Excel - se pueden usar emoticonos en el código de los botones de un formulario

   ' Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("B8:E8")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   '

   Dim X As Long

   Dim Y As Long

   Dim rngForm As Range

   '

   ' Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("B8:E8")

   '

   ' Verifico si el cursor se encuentra en alguna celda del rango

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

      'Calculo la aparicion Izquierda del form

      X = UserForm1.Width - Range("B8").Left

      '

      'Calculo la aparicion superior del form

      Y = Range("B8").Top + UserForm1.Height + 13

      '

      'llamo al formulario

      UserForm1.Promedio X, Y

      '

   End If

   '

   Set rngForm = Range("B3:E7")

   '

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

      'llamo al formulario

      Call calculadora.VerCalcu(ActiveCell.Address)

      '

  Else  'cambie este else para que me diga si no son los rangos anteriores pregunto por el tercero.

   '

   'Código añadido para el TERCER FORMULARIO NOTA

   Dim notaform As String

   notaform = ActiveCell.Address

   If Not Intersect(Target, Range("h3:k7")) Is Nothing Then

      '

      'Llama los formularios

      NOTA.Show

      '

   End If

   '

   End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   ' Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("B2:E7")

   If Union(Target, rngForm).Address = rngForm.Address Then

' llamo al formulario

      emoticonos.Show

   End If

End Sub