Hi Dean Try this Lr1 = .Range("C" & Rows.Count).End(xlUp).Row
Lr1 = .Range("C" & Rows.Count).End(xlUp).Row
Forum Rules