VBA List Validation for Dynamic Range

[3link]

I have a cell within my spreadsheet that will conditionally have data validation properties based on user input. The validation property will be a list with numbers ranging between 0+. The range of the list will depend on user input. As the list will contain only whole numbers, I was wondering if there is a way I can simply set a min and max value and have excel fill-in the numbers between. Something like:

    Range("A1").Select

        With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, _
        AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="0 To 51"

That way, I could simply set the max to follow the value of a certain cell:

  xlBetween, Formula1:="0 To Range("A1").value

Is this possible? If not, is there a way to convert this"

=OFFSET($J$3,0,0,(ROWS($J$3:$J$25)-COUNTBLANK($J$3:$J$25)),1)

from Excel to VBA code? That would be my plan b.

 

[3link]

Nevermind. I think I figred it out. I have a range of numbers J3 - J25. Each cells contains a number 0 - 22. However, each cell is programed to turn null if it exceeds the max (contained in Cell J2).

=IF(1>$J$2, "", 1)

Then I have a named range for these (named "MyRange"):

=OFFSET($J$3,0,0,(ROWS($J$3:$J$25)-COUNTBLANK($J$3:$J$25)),1)

And the VBA code is:

Sub ProgramValidate()
 With Range("A1").Validation
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
 Operator:=xlBetween, Formula1:="=MyRange"
 .ErrorMessage = "Invalid value. Select one from the dropdown list."
 .InCellDropdown = True
 End With
End Sub