Function PositiveHours()
Dim PlanetaryMethod As Worksheet
Dim IndexRng1 As Range, IndexRng2 As Range, MatchRng As Range
Set PlanetaryMethod = ThisWorkbook.Worksheets("Planetary Method")
Set IndexRng1 = PlanetaryMethod.Range("M4:M27")
Set IndexRng2 = PlanetaryMethod.Range("N4:T27")
Set MatchRng = PlanetaryMethod.Range("N3:T3")
Set PositiveHour = PlanetaryMethod.Range("H24")
Set DayOfWeek = PlanetaryMethod.Range("E15")
Set PositivePlanet = PlanetaryMethod.Range("E19")
' Original Formula
'=INDEX($M$4:$M$27,MATCH($E19,INDEX($N$4:$T$27,0,MATCH($E$15,$N$3:$T$3,0)),0),1)
PositiveHour = Application.WorksheetFunction.Index(IndexRng1, _
Application.WorksheetFunction.Match(PositivePlanet, _
Application.WorksheetFunction.Index(IndexRng2, 0, _
Application.WorksheetFunction.Match(DayOfWeek, MatchRng, 0)), 0), 1)
End Function
=============================================
Function NegativeHours()
Dim PlanetaryMethod As Worksheet
Dim IndexRng1 As Range, IndexRng2 As Range, MatchRng As Range
Set PlanetaryMethod = ThisWorkbook.Worksheets("Planetary Method")
Set IndexRng1 = PlanetaryMethod.Range("M4:M27")
Set IndexRng2 = PlanetaryMethod.Range("N4:T27")
Set MatchRng = PlanetaryMethod.Range("N3:T3")
Set NegativeHour = PlanetaryMethod.Range("H25")
Set DayOfWeek = PlanetaryMethod.Range("E15")
Set NegativePlanet = PlanetaryMethod.Range("E20")
' Original Formula
'=INDEX($M$4:$M$27,MATCH($E20,INDEX($N$4:$T$27,0,MATCH($E$15,$N$3:$T$3,0)),0),1)
NegativeHour = Application.WorksheetFunction.Index(IndexRng1, _
Application.WorksheetFunction.Match(NegativePlanet, _
Application.WorksheetFunction.Index(IndexRng2, 0, _
Application.WorksheetFunction.Match(DayOfWeek, MatchRng, 0)), 0), 1)
End Function