Thanks mahenjk2 sorry its taken awhile to get back to you. Find below the code I am using.
Private Sub Customer_Services_IN_Click()
Dim i As Integer, x As Double
Dim num As Integer, start As Double
num = 1 'Number of records in the form'
x = 0 / num 'X is the width of the...