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.
Private Sub TestSomeCode()
Dim wb As Workbook
Dim ws As Worksheet
Dim r as Range
Dim x as Long [green]'rows[/green]
Dim y as Long [green]'columns[/green]
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet
For x = 1 To 10
For y = 1 To 10
Set r = ws.Cells(x, y)
MsgBox "The cell at Range " & r & " is holding the value, " & r.Value
Next y
Next x
x = 0
y = 0
Set r = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub