Salto de página

hola, Aprendiz !

... lista ... de clientes ... cuyo numero de filas es variable.
... sacar una hoja por cada cliente (para imprimir o para crear una hoja ... nueva ... mismo libro).
... macro que ponga un salto de pagina (en el caso de imprimir).
... en la columna A, siempre termina la lista de un cliente con ... Total cliente
... en la siguiente fila comienza otra lista [...]

el siguiente codigo... [primero] 'limpia' los saltos de pagina 'existentes' y 'pone los nuevos' ;)
[si de todas maneras quieres 'mandar' cada lista por cliente a una hoja 'nueva'... ¿avisas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Salto_Pagina_Por_Cliente()
Application.ScreenUpdating = False
Dim Salto As Integer, Fila As Long
On Error Resume Next
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
For Fila = 1 To .UsedRange.Rows.Count
If LCase(.Range("a" & Fila)) = "total cliente" _
Then .HPageBreaks.Add .Range("a" & Fila + 1)
Next
End With
End Sub