Copiar un rango de datos a una hoja nueva para hacer un gráfico

hola,

necesito hacer una macros que me cree una nueva hoja, en la cual me copie un rango de datos de una hoja determinada para luego hacer un gráfico de lineas..

esto es lo que llevo dle código

Private Sub Gráfico_Click()
Dim hojaActiva As String
Dim fila As Integer
Dim n As Integer
Dim maxi As Integer

hojaActiva = selectHojaActiva.Text --> la hoja se seleccciona por un combobox
Worksheets(hojaActiva).Activate

'código para insertar nueva hoja
nombreHoja = InputBox("Escriba un nombre para la nueva hoja: (se recomienda escribir el nombre de la muestra)")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = "Gráfico " + nombreHoja

'Seleccionamos todo el área continua de datos, desde la celda donde estamos situados
Range("ab3:ad15").Select 'selecciona el rango especifico
ActiveCell.CurrentRegion.Select
'Copiamos
Selection.Copy
'Pegamos en A2 de la hoja 7
Sheets("hoja").Select
Range("A3").Select 'el control se hará sobre la columna A, a partir de la fila
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select

al depurar el error está en la siguiente linea: Sheets("hoja").Select

entonces no se como seleccionar la nueva hoja para copiar los datos

de ANTEMANO MUCHAS GRACIAS