So this is my code:

Worksheets("Sheet1").Activate
Dim rTmpRange As Range
Dim sRefAnt() As String
Dim numGPCR As Long
Dim ref As Long
numGPCR = InputBox("Enter the Number of GPCRs Tested")
ReDim sRefAnt(1 To numGPCR)
For ref = 1 To numGPCR
Set rTmpRange = Application.InputBox("Please Select Data for
Reference Antagonist " & ref, Type:=8)
sRefAnt(ref) = rTmpRange.Address
Next

Dim RefAnt As Range
RefAnt() = WorksheetFunction.Average(sRefAnt) 'This averages the
Reference antagonist values for calculation
Worksheets("Sheet2").Activate
Range("F" & ref) = RefAnt()

I am trying to be able to put in 2+ ranges in line 6 and then average
those ranges individually later on (in RefAnt) is this possible to do?
and if so is it just the way I am defining my RefAnt variable? Do I
need to let excel know that I want it to go from 1 to numGPCR?