Sum on textbox value on userform reloaded

[kelly mort]

How do I add a continuous range say 5 to 16? Instead of adding 5 and 16 as below?

I tried "To" and ":" for the "," but didn't work out.

Sub oSum()
Dim n&, s As Double, TbRay As Variant 

TbRay = Array(5, 16)
For n  = 0 To UBound(TbRay)
       s = s + Val (UserForm1.Controls("TextBox" & TbRay(n)).Object.Value)
Next
UserForm1.TextBox17.Value = s 
End Sub

 

[Fluff]

Try

Sub oSum()
Dim n&, s As Double

For n = 5 To 16
       s = s + Val(userform1.Controls("TextBox" & n).Object.Value)
Next
userform1.TextBox17.Value = s
End Sub

 

[kelly mort]

Try

Sub oSum()
Dim n&, s As Double

For n = 5 To 16
       s = s + Val(userform1.Controls("TextBox" & n).Object.Value)
Next
userform1.TextBox17.Value = s
End Sub

Perfectly on point.

Have a wonderful time

 

[Fluff]

You're welcome & thanks for the feedback