This is little VBA code to create a helix and I am hoping that someone out there has more skill than me can help get this to work. Thanks Bruce b*** remove the *'s to contact directly by email but I would rather see any response posted to this group Option Explicit Public Sub calc1() Dim points(200) As Integer ' ReDim points(1 To 10) As Integer Dim x, y, z, h, t As Integer Dim counter t = 5 h = 24 For z = 1 To 36 Select Case t Case t <= 90 x = 1 / Cos(t) * h z = z + 1 t = t + 5 Case 90 <= t <= 180 t = 180 - t x = 1 / Cos(t) * h z = z + 1 t = t + 5 Case 180 <= t <= 270 t = 270 - t t = 90 - t x = 1 / Cos(t) * h z = z + 1 t = t + 5 Case 270 <= t <= 360 t = 360 - t t = 90 - t x = 1 / Cos(t) * h z = z + 1 t = t + 5 End Select x = points(counter) y = points(counter + 1) 'z = points(counter + 2) Next End End Sub Public Sub calc2() Dim points() Dim counter For counter = 0 To 200 Step 1 Print points("+ Str(counter)+") Next End Sub