Using Named Ranges in Formulas

Hi,

is it possible to use a named range myrange = A1:A5, instead of just one cell, in the following code so the calculations are performed to each cell in the range?

Sub GetIntegerPart()
Dim myvalue As Double
Dim IntValue As Integer
myvalue = Range("a1") * 10
IntValue = Fix(myvalue)
Range("a1") = IntValue / 10
End Sub

Thank you