Rango de VBA de la cadena

Esto es un poco tonto, pero he estado estancado por un tiempo en esta simple declaración:

<code>    Dim range1 as Range
    Dim mysheet as String
    Dim myrange as String

    mysheet = "Sheet1"
    range = "A1:A10"

range1 = Worksheets(mysheet).Range(myrange)
</code>

He probado todas las soluciones que he encontrado en internet como por ejemploesta, esta yesta, pero nada.

Todo el tiempo me da errores: 1004 "Error definido por la aplicación" o "variable de objeto o sin establecer".

He probado lo siguiente:

<code>range1 = ThisWorkbook.Worksheets(mysheet).Range(myrange)

range1 = ActiveWorkbook.Worksheets(mysheet).Range(myrange)

range1 = Sheets(mysheet).Range(myrange) (and the combinations above)

range1 = Worksheets(mysheet).Range(Cells(1,1), Cells(1,10)) (and the combinations with This/Active workbook)
</code>

y

<code>with This/ActiveWorkbook
range1 = .Worksheets(mysheet).Range(myrange)
end with
</code>

Ninguno ha trabajado.

Esto es una cosa REALMENTE tonta, pero me he quedado estancado por un tiempo: s

¿Alguien puede ayudarme?

Realmente gracias de antemano.

Atentamente,

Respuestas a la pregunta(1)

Su respuesta a la pregunta