Per impostare una variabile in modo che faccia riferimento a un intervallo, è necessario utilizzare il comando Set:
Sub VariableSetToRange()
'questo imposta la variabile myRange alla selezione del foglio di lavoro corrente
Dim myRange As Range
Set myRange = Selection
End Sub
Sub VariableSetToCell()
'questo imposta la variabile curCell sulla cella attiva
Dim curCell As Range
Set curCell = ActiveCell
End Sub
Sub VariableSetToLargeRange()
'questo imposta la variabile cellsOfInterest sulle celle dalla cella attiva
'all'ultima cella nella colonna della cella con una voce. Si presume che
'siano presenti voci nella colonna sotto la cella attiva.
Dim R As Integer, cellsOfInterest As Range
With ActiveSheet.UsedRange
R = .Cells(.Cells.Count).Row + 1
End With
Set cellsOfInterest = Range(ActiveCell, Cells(R, ActiveCell.Column).End(xlUp))
cellsOfInterest.Select
End Sub