Limit replication of coding inside spreadsheet

Ok. My bad. You can't set the variable range as a constant. Instead here is a work around

Option Explicit

Dim rng As Range
---------------------------------------------------
Function Getrng() As Range
     Set Getrng = Range("A10:A20")
End Function
--------------------------------------------------
Sub Test()
Set rng = Getrng
rng.EntireRow.Hidden = True
End Sub

You will have to define (Dim) each of your ranges above the function
Create a Getrng1, Getrng2, etc for each of your ranges

Then in your Sub you can set each of the ranges so that you will only have to reset the GetrngX when you need to make a range change and not the Sub itself.