Cannot Jump to Range because it is hidden

[ecarney14]

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

 

[Joe4]

Did you try unhiding your range, then running the macro (or using the macro to unhide the range)?

 

[ecarney14]

Yeah, I tried that. I didn't know if it has something to do with the fact I use a different range to find the iMin? Because basically I was using the values before the iMax to find the imin. So technically I could use the same range, but it isn't working for some reason.

Thanks for your help