set visible range of spreadsheet control dynamicaly

[G2K]

Hi All,


I want to set visible range of spreadsheet control. it is showing the default range currently,i want to set it according to the record count

is there any way to fix this problem

 

[Andrew Poulsom]

Example:

Private Sub UserForm_Initialize()
    Dim r As Integer, c As Integer
    With Spreadsheet1
        For r = 1 To 3
            For c = 1 To 3
                .Cells(r, c).Value = r * c
            Next c
        Next r
        .ViewableRange = "A1:C3"
    End With
End Sub