Composicion de Codigo

[mrocf]

Fíjate si lo siguiente te sirve:

Código PHP:

Sub BorraContenido_new()
Dim mySh, myRng, i As Byte
 
mySh = Array( _
  "Preguntas No.1-2", "Preguntas No.3-4", "Preguntas No.5-6", _
  "Preguntas No.7-8", "Preguntas No.9-10", "Preguntas No.11-12", _
  "Preguntas No.13-14")
myRng = Array( _
  "C6:F50,I6:L50", "C6:F50,I6:L50", "C6:F50,I6:L50", "C6:D50,G6:H50", _
  "C6:D50,G6:J50", "C6:F50,I6:L50", "C6:F50,I6:L50")
 
Application.ScreenUpdating = False
For i = LBound(mySh) To UBound(mySh)
  Sheets(mySh(i)).Range(myRng(i)).ClearContents
Next i
Application.ScreenUpdating = True
 
MsgBox ("Contenido limpio de hojas Pregunta del No.1 a la 14")
End Sub
 

Saludos, Cacho R.