Pegar en una celda valor obtenido al seleccionar una fila de listbox.

Tengo un botón que identifica el valor seleccionado de la primer columna de un listbox de la siguiente manera:

Private Sub CommandButton7_Click()
'
'Botón Hoja elegida
'
'Declaramos variables
Dim Cuenta As Integer
Dim Numero As Integer
Dim j As Integer
Dim i As Integer
    '
    Cuenta = Me.ListBox1.ListCount
    '
    'Validamos que haya un elemento seleccionado.
    For j = 0 To Cuenta - 1
        If Me.ListBox1.Selected(j) = True Then
            Numero = Numero + 1
        End If
    Next j
    '
    'La hoja seleccionada se pasará al ListBox de hojas visibles.
    For i = 0 To Cuenta - 1
        If Me.ListBox1.Selected(i) = True Then
                   MsgBox Me.ListBox1.List(i), vbInformation, '"EXCELeINFO"
        End If
    Next i
    '
End Sub

Me gustaría me indiquen como obtener ese valor que ahora aparece en el mensaje poder pegarlo en la celda P1 de la Hoja Temporal.