Running Macros

Hi,

I'm very new at this and need some help.

I've found an example of macro code online and am trying to get it to run.

Here's the code:

'Subroutine store values in Column A of the active Worksheet
' into an array

Sub GetCellValues()

Dim iRow As Integer ' stores the current row number
Dim dCellValues() As Double ' array to store the cell values

iRow = 1
ReDim dCellValues(1 To 10)

' Do Until loop to extract the value of each cell in column A
' of the active Worksheet, as long as the cell is not blank

Do Until IsEmpty(Cells(iRow, 1))

' Check that the dCellValues array is big enough
' If not, use ReDim to increase the size of the array by 10
If UBound(dCellValues) < iRow Then
ReDim Preserve dCellValues(1 To iRow + 9)
End If

' Store the current cell in the CellValues array
dCellValues(iRow) = Cells(iRow, 1).Value

iRow = iRow + 1
Loop

End Sub I've put this code into Microsoft Visual Basic.

In sheet 1 I've typed numbers in column A as follows:

1
2
3

What do I do now? Do I need to type something in the function bar? How do I run the macro?

Thanks