after:
Set NewBk = ActiveWorkbook
add:
If row 15 is not always the last row you can make that 15, say, 500.With NewBk.Sheets("Mainstay Master") With Intersect(.UsedRange, .Rows("4:15")) .Value = .Value End With End With
after:
Set NewBk = ActiveWorkbook
add:
If row 15 is not always the last row you can make that 15, say, 500.With NewBk.Sheets("Mainstay Master") With Intersect(.UsedRange, .Rows("4:15")) .Value = .Value End With End With
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.