Stop with
Set Rng = Sheets("Sheet3").Range("L3:L2500")
"out of range"