Please jump to third post. Please jump to third post. Please jump to third post. Sub BlankPNs() ThisWorkbook.Activate Dim cell As Range For Each cell In Range("A:A") If cell.Value = "" Then cell.Value ...