I think you'd need something like this:
Option Explicit
Public Function maxspeed(count As Integer, workout1 As Range, workout2 As Range, workout3 As Range, workout4 As Range, workout5 As Range) As Double
Select Case count
Case 1
maxspeed = WorksheetFunction.CountIf(workout1, ">89%")
Case 2
maxspeed = WorksheetFunction.CountIfs(workout1, ">89%", workout2, ">89%")
Case 3
maxspeed = WorksheetFunction.CountIfs(workout1, ">89%", workout2, ">89%", workout3, ">89%")
Case 4
maxspeed = WorksheetFunction.CountIfs(workout1, ">89%", workout2, ">89%", workout3, ">89%", workout4, ">89%")
Case 5
maxspeed = WorksheetFunction.CountIfs(workout1, ">89%", workout2, ">89%", workout3, ">89%", workout4, ">89%", workout5, ">89%")
End Select
End Function
Sub sTest_maxspeed()
Debug.Print maxspeed(3, Range("A1"), Range("A2"), Range("A3"), Range("A4"), Range("A5"))
End Sub
Regards, TMS
Bookmarks