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
Add Comment
Please, Sign In to add comment