a guest Jan 18th, 2019 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- ' Work out the column to insert
- insert_col_pos = Application.Match("Postcode", title_range, 0)
- If insert_col_pos = xlErrNA Then Exit Function ' Exit if the column to insert next to does not exist
- insert_col = GetInsertCol(insert_col_pos + 1)
- If insert_col_pos = CVErr(xlErrNA) Then Exit Sub
RAW Paste Data