VBA multipage caption value from cell

[wisemank]

Hi there,

I have userform1 with a multipage on it. I need the captions for the multipage form to be populated from specific cell values. My issue is I need the range from A7 to A15 only, but I get way more than I need with this code found earlier... Any suggestions?


Private Sub UserForm_Initialize()


Dim pagecount As Long
Dim n As Long

pagecount = Sheets("Part Spec.").Range("a" & Rows.count).End(xlUp).Row - 5
n = 0

With MultiPage1
Do
If n >= .Pages.count Then .Pages.Add
.Pages.Caption = Sheets("Part Spec.").Range("a" & n + 6).Value
n = n + 1
Loop Until n = pagecount
End With
End Sub

 

[John_w]

need the range from A7 to A15 only

Try this:

Private Sub UserForm_Initialize()
    
    Dim pageCount As Long
    Dim n As Long
    
    pageCount = Sheets("Part Spec.").Range("A" & Rows.Count).End(xlUp).Row - 6
    n = 0
    
    With MultiPage1
        For n = 0 To pageCount - 1
            If n >= .Pages.Count Then .Pages.Add
            .Pages(n).Caption = Sheets("Part Spec.").Range("A" & n + 7).Value
        Next
    End With
    
End Sub

Please use CODE tags - the # icon in the message editor.