Code for inserting page breaks across multiple worksheets?

[Milos]

I am looking for an amazing solution to a problem that I am having printing.

I want to insert a page-break at the end of each worksheet (I have 50-200 worksheets in one workbook). Each worksheet is different in length. The end of each worksheet can be identified by the first blank cell/row without any values.

Is there any way to magically code this?

Thanks in advance!

 

[AlphaFrog]

[color=darkblue]Sub[/color] PageBreaks()
    [color=darkblue]Dim[/color] rngLastRow [color=darkblue]As[/color] Range
    [color=darkblue]Dim[/color] ws [color=darkblue]As[/color] Worksheet
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] ws [color=darkblue]In[/color] Worksheets
        [color=darkblue]Set[/color] rngLastRow = ws.Cells.Find("*", , , , 1, 2)
        [color=darkblue]If[/color] [color=darkblue]Not[/color] rngLastRow [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
            ws.HPageBreaks.Add Before:=rngLastRow.Offset(1)
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] ws
    
    MsgBox "Page Breaks added."
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Milos]

Thanks works perfectly. AlphaFrog you are an absolute legend!