Here is what I had to do in case anyone else ever has the same problem. I went through and created buttons for every page (I stopped at page 9), copied and pasted the macro to a notepad and then opened the file and pasted all the code together. For my situation my page button starts as button "8" on the first page to get page 2. Probably a simple solution for this other than this but this is what I did...
Sub Page2()
'
' Page2 Macro
'
'
ActiveWindow.SmallScroll Down:=9
Range("A43:J43").Select
ActiveWindow.SmallScroll Down:=9
Selection.AutoFill Destination:=Range("A43:J86"), Type:=xlFillDefault
Range("A43:J86").Select
ActiveSheet.Buttons.Add(10.5, 1245, 72, 72).Select
Selection.OnAction = "Page3"
ActiveSheet.Shapes("Button 9").Select
Selection.Characters.Text = "Next Pg"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Selection.ShapeRange.ScaleWidth 1.12, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.84, msoFalse, msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=-18
ActiveSheet.Shapes("Button 9").Select
Selection.ShapeRange.ScaleWidth 0.98, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.04, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.03, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.2, msoFalse, msoScaleFromBottomRight
ActiveSheet.Shapes("Button 8").Select
Selection.Cut
Range("A41").Select
End Sub
Sub Page3()
'
' Page3 Macro
'
'
ActiveWindow.SmallScroll Down:=9
Range("A86:J86").Select
Selection.AutoFill Destination:=Range("A86:J129"), Type:=xlFillDefault
Range("A86:J129").Select
ActiveSheet.Buttons.Add(11.25, 1886.25, 72, 72).Select
Selection.OnAction = "Page4"
ActiveSheet.Shapes("Button 10").Select
Selection.Characters.Text = "Next Pg"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Selection.ShapeRange.ScaleWidth 1.12, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.84, msoFalse, msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=-18
ActiveSheet.Shapes("Button 10").Select
Selection.ShapeRange.ScaleWidth 0.98, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.04, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.03, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.2, msoFalse, msoScaleFromBottomRight
ActiveSheet.Shapes("Button 9").Select
Selection.Cut
Range("A83").Select
End Sub
And continue that for however many pages you need. code was too long to paste it all, lol But it just repeats with different cell and button numbers...
ends with:
Sub Page9()
'
' Page9 Macro
'
'
Range("A344:J344").Select
Selection.AutoFill Destination:=Range("A344:J387"), Type:=xlFillDefault
Range("A344:J387").Select
ActiveWindow.SmallScroll Down:=-48
ActiveSheet.Shapes("Button 15").Select
Selection.Cut
Range("A341").Select
End Sub
Bookmarks