variable fill range

Sorry about that...try this instead. I highlighted the corrections for clarity:

Private Sub Worksheet_Activate()
Dim name1, name2, varRange, c

' Assign named formulas to variables...
name1 = ActiveWorkbook.Names("BinTest")
name2 = ActiveWorkbook.Names("Range")
' Get value of named 'Range' workbook object- strip off the '=' sign...
RowCount = ActiveSheet.Range(name2).Value
' Ensure Excel worksheet row limit isn't exceeded...
If RowCount > 65500 Then
     MsgBox "Your value for 'Range' exceeds the row limit for EXCEL worksheets."
     Exit Sub
End If
' Define the range of cells to insert the named "BinTest" formula
' Start at cell A37 & add the value of name "Range" to the row to include in range of cells...
varRange = ActiveSheet.Cells(37, 1).Address & ":" & Cells((37 + Range(name2).Value), 1).Address

' Insert the "BinTest" formula in each cell of the range...
For Each c In Range(varRange)
    c.Formula = name1
Next
End Sub

theDude

Actualy that was a problem with the named range, not the code, now that its fixed rowCount loads just fine, with the correct value.

Robert

I still have the problem (Application-defined or object-defined error. at:
rowCount = ActiveSheet.Range(name2).Value)

However, “Range” comes from a different worksheet, “BinSize”. (“Range” IS a global named range)

If worksheet "BinSize" is selected in excel and the code is ran, it works fine. If the correct worksheet, Htestc, is selected the error occurs.

I tried changing the line to:

rowCount = ActiveWorkbook.Range(name2).Value

and get: “Object doesn't support this property or method (Error 438)”

Im getting beat up by somethin that seems pretty simple

Replace this line of code:

rowCount = ActiveSheet.Range(name2).Value

with this line of code:

rowCount = ActiveWorkbook.Worksheets("BinSize").Range(name2).Value

Replace this line of code:

varRange = ActiveSheet.Cells(37, 1).Address & ":" & Cells((37 + Range(name2).Value), 1).Address

with this line of code:

varRange = ActiveSheet.Cells(37, 1).Address & ":" & Cells((37 + RowCount), 1).Address

Hope this helps,
theDude

yes, it works.
Thanks for the help and education!