VBA: Graficar por Rangos en Textbox

A tod@s,
Tengo una hoja con varios datos en los 12 meses del año, y una gráfica en otra hoja, al textbox le indico numero de las filas separas por (, ). ¿Me grafica las filas que le indique pero como hago para que tambien lo haga por Rango?

Esta es la macro:

Sub graficar()
Dim Rango As String, I As Integer, Fila As Integer
Dim TextBox1 As String
Dim Hoja As String
On Error GoTo Error
Hoja = ActiveSheet.Name
TextBox1 = Worksheets(Hoja).TextBox1.Text
I = 1
Do While InStr(I, TextBox1, ",") > 0
Fila = Mid(TextBox1, I, InStr(I, TextBox1, ",") - I)
I = InStr(I, TextBox1, ",") + 1
Rango = Rango & "C" & Fila & "," & "D" & Fila & ":" & "O" & Fila & ","
Loop
Fila = Mid(TextBox1, I)
Rango = Rango & "C" & Fila & "," & "D" & Fila & ":" & "O" & Fila
Application.Sheets.Item("Gráfica").Select
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("" & Hoja & "").Range( _
Rango), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='" & Hoja & "'!R11C5:R11C16"
Exit Sub
Error:
MsgBox "No se pudo graficar. Verifique el texto de las filas o que exista la hoja de Gráfica"
End Sub