Intersect in VBA

Hi all

I have a piece of code that changes the format of a cell using an intersect statement on the range in question. However, if I try and select more than one cell in the range then an error message is returned:

'Run Time Error 13':
Type mismatch

I know that it is caused by selectin multiple cells - is there a way to error handle this so that, when multiple cells are selected, it ignores the intersect statement?

Thanks

Matt