Seleccionar un rango de filas mediante inputbox

Te dejo este código a ver si te sirve
Sub Macro1()
    Dim sRango As Range
    Dim sCeldaIni As String
    Dim nFilaIni As Long
    Dim nFilaFin As Long
    Dim nColIni  As Long
    Dim nColFin  As Long
    Dim nFila As Long
    Dim nCol As Long
    Set sRango = Application.InputBox("Seleccione la celda en la que se encuentra " & _
      "seleccionara el formato condicional", Type:=8)
    If sRango Is Nothing Then Exit Sub
    If sRango.Rows.Rows.Count = 1 Then
        Range(sRango.Address).Select
        Formato
    Else
        sCeldaIni = Left(sRango.Address(, , xlR1C1), InStr(1, sRango.Address(, , xlR1C1), ":") - 1)
        nFilaIni = Replace(Left(sCeldaIni, InStr(1, sCeldaIni, "C") - 1), "R", "")
        nFilaFin = sRango.Rows.Rows.Count
        nColIni = Mid(sCeldaIni, InStr(1, sCeldaIni, "C") + 1, Len(sCeldaIni) - InStr(1, sCeldaIni, "C"))
        nColFin = sRango.Columns.Count
        For nCol = nColIni To nColFin
            For nFila = nFilaIni To nFilaFin
                Cells(nFila, nCol).Select
                MsgBox Selection.Address
                Formato
            Next
        Next
    End If
End Sub
Sub Formato()
    Select Case Selection.Value
        Case "Exelente"
            With Selection.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
        Case "Notable"
            With Selection.Interior
                .ColorIndex = 7
                .Pattern = xlSolid
            End With
        Case "et"
            With Selection.Interior
                .ColorIndex = 8
                .Pattern = xlSolid
            End With
    End Select
End Sub

josaul buenas gracias por contestarme.
Solo que con la macro no pasa nada
Pero cuando ejecuto la macro formato () que me enviaste me da un error 13 no coisiden los tipo . Parece que solo le aplica la macro formato() a una sola celda en particular.
Pero lo que yo quisiera es que me aplique la macro formato ()
  A un rango de celdas Seleccionada mediante un inputbox. No sola mente a una celda.
Te reitero las gracias por contestarme pues e tratado con varias macro y modificaciones
pero me da el error 13. Adiferencia de la macro que me genera el inputbox. El inputbox funciona muy bien pues selecciona el rango de celdas Que marco con el mouse. Pero el problema esta en la macro formato.
Solo me queda esperar una respuesta tuya muchas gracias de antemano no ce si tengo
que puntuar por cual quier respuesta.