Si la idea es que la hoja no se trancriba (desde un principio), en el For ... Next pondría :                                      For I = 1 to (Cantidad_Hojas - 1)                                            , ya que fue la última en ser creada, por lo que el indice debe ser el número mayor.