I keep getting an error, and I think it is due to 'cannot jump to 'range' because it is hidden...
Any help would be fantastic!
Sub help()
Dim iMax As Double, iMin As Double, lRowMax As Long, lRowMin As Long
iMax = Application.WorksheetFunction.Max(Range("D2:D20000"))
lRowMax = Range("D2:D20000").Find(iMax).Row
iMin = Application.WorksheetFunction.Min(Range("D2" & ":D" & lRowMax - 1))
lRowMin = Range("D2:D20000").Find(iMin, Range("D20000")).Row
Dim rAZ As Range
For Each rAY In Range("D" & lRowMin + 1 & ":D20000")
rAZ.Offset(, 48) = rAY - iMin
Next
End Sub
Any help would be fantastic!
Sub help()
Dim iMax As Double, iMin As Double, lRowMax As Long, lRowMin As Long
iMax = Application.WorksheetFunction.Max(Range("D2:D20000"))
lRowMax = Range("D2:D20000").Find(iMax).Row
iMin = Application.WorksheetFunction.Min(Range("D2" & ":D" & lRowMax - 1))
lRowMin = Range("D2:D20000").Find(iMin, Range("D20000")).Row
Dim rAZ As Range
For Each rAY In Range("D" & lRowMin + 1 & ":D20000")
rAZ.Offset(, 48) = rAY - iMin
Next
End Sub