Two Macro's on one sheet

Originally Posted by humdingaling

Set WorkRng = Intersect(Application.ActiveSheet.Range("h:h","m:m","p:p"), Target)

Managed to get it working with the following changes:

Set WorkRng = Intersect(Application.ActiveSheet.Range("H:H,M:M,P:P"), Target)

Thanks for your help, much appreciated.