Care to share your PERSONAL.XLSB?

[vityata]

Hi people. Do you like to share your PERSONAL.XLSB?
Here is mine:

Option Explicit
Public Function sum_range(my_range As Range) As Double
    
    Dim cell As Range
    
    sum_range = 0
    
    For Each cell In my_range
        sum_range = sum_range + cell.Value
    Next
    
End Function


Public Sub print_array(my_array As Variant)
    Dim counter As Integer
    
    For counter = LBound(my_array) To UBound(my_array)
        Debug.Print counter & " --> " & my_array(counter)
    Next counter
    
End Sub

 

[My Aswer Is This]

Looks great. Thanks for sharing this.

Hi people. Do you like to share your PERSONAL.XLSB?
Here is mine:

Option Explicit
Public Function sum_range(my_range As Range) As Double
    
    Dim cell As Range
    
    sum_range = 0
    
    For Each cell In my_range
        sum_range = sum_range + cell.Value
    Next
    
End Function


Public Sub print_array(my_array As Variant)
    Dim counter As Integer
    
    For counter = LBound(my_array) To UBound(my_array)
        Debug.Print counter & " --> " & my_array(counter)
    Next counter
    
End Sub

 

[vityata]

@My Answer Is This - Can you share your Personal XLSB?