Error 13 - missmatch

Hi,

I use the below VBA to add columns to the right of a newly added cell...

when clicked it pauses for a second then completes is task as it should but then throw out an error 13 at this point... "If Not rng Is Nothing And Application.CountIf(rng, "") > 0 Then rng.Delete"

any ideas?

Please Login or Register  to view this content.

You can not evaluate CountIf(rng...) when rng is nothing, so you need to separate that line
e.g

Please Login or Register  to view this content.