ws.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Value = ws.Name
ws.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Value = ws.Name
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.
Posting Permissions
Reply With Quote