VBA macro to paginate worksheet

[ihf]

I have a worksheet which has names in the first column (starting at A2). My macro sorts on that column. I now need to paginate the worksheet such that there is a page of names for each letter of the alphabet. How to do this?

 

[gordsky]

I have a worksheet which has names in the first column (starting at A2). My macro sorts on that column. I now need to paginate the worksheet such that there is a page of names for each letter of the alphabet. How to do this?

To create a worksheet for each letter of the alphabet you could use this

Sub test()
For ascii = 65 To 90
Sheets.Add.name = Chr(ascii)
Next ascii
End Sub

You could that in combination with a filter so that if the letter of the name appears you then copy paste create info into the relevant sheet etc or dont create if letter doesnt exist. As you havent specified if the sheets will be based on First or last names cant help you any further.

 

[ihf]

To create a worksheet for each letter of the alphabet you could use this

Sub test()
For ascii = 65 To 90
Sheets.Add.name = Chr(ascii)
Next ascii
End Sub

You could that in combination with a filter so that if the letter of the name appears you then copy paste create info into the relevant sheet etc or dont create if letter doesnt exist. As you havent specified if the sheets will be based on First or last names cant help you any further.

Thanks. That helps but what I need to do is paginate the worksheet (i.e., add page breaks) whenever the first letter of the name changes.
For example, if column a has a list of names
Aaron
Arnold
...
Betty
Boris
...
I want to end up with page breaks such that the A names are on one page, B on the next, and so on. To complicate this further I need to have the same column heading on all pages.