Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim Myarray()
Sub Atest()
Dim MyArray()
ReDim MyArray(2, ActiveSheet.UsedRange.Count)
i = LBound(MyArray, 2)
For Each c In ActiveSheet.UsedRange
MyArray(0, i) = c.Value
MyArray(1, i) = c.Row
MyArray(2, i) = c.Column
i = i + 1
Next
End Sub