Tema: [SOLUCIONADO] borrar celdas con VBA

Muy buenas queria hacer la siguiente consulta:

Quiero borrar las columnas ABC de dos hojas y lo hago mediante el siguiente código.


Private Sub CopiarHojas6y3_Click()

BorrarDatosHoja6y3 "15084-6", "15084-3"

End Sub


Public Sub BorrarDatosHoja6y3(Hoja6, Hoja3)

Sheets(Hoja6).Select
Range("A:C").Select
Selection.ClearContents

Sheets("Hoja3").Select
Columns("A:C").Select
Selection.ClearContents

End Sub

EL código de la hoja6 borra perfectamente las columnas, pero el que se refiere a la hoja 3, da el siguiente error:

Error 9: Subindice fuera de intervalo

Y no lo entiendo, lo he revisado todo, las variables toman los valores bien al llamar al procedimiento, pero falla, haber si alguien me puede iluminar por que me estoy volviendo loco.

Un saludo.

Hola letoy.

Pon atencion en este linea

Sheets("Hoja3").Select

estas haciendo referencia a la hoja que se llama Hoja3 y no a la variable Hoja3, quita las comillas y deberá funcionarte asi.

Sheets(Hoja3).Select

es decir
Sheets("Hoja3") ---> te estas refiriendo a la hoja llamada Hoja3
Sheets(Hoja3)----> te refieres al valor contenido dentro de la variable Hoja3

Es decir "Hoja3" es una constante String, mientras Hoja3 sin comillas es tu variable

Saludos cordiales.

Gracias neverdelimon1, el error es claro, pero cuando estas saturado pasas 100 veces revisando el código y no ves unas simples "", te lo agradezco, un saludo y gracias.