Runtime Error

[Carlton Patterson]

Norman,

I think it might have something to do with the following:

f Not IsError(rCell.Value) Then
If rCell.Value > 1 Then


Maybe its because its waiting for the value to change???

Carlton

 

[Norman Jones]

Hi Carlton,

In a test workbook, the code worked for me.

Are your precedent cells on the same sheet as the A1:A5 cells?

Your previous posts gave no clue as to the intended purpose of the flashing.
However, if, as it now seems, it is to highlight stockmarket price
fluctuations or some such, why not dispense with coded mini-flashing and use
XL's inbuilt conditional format feature?

Flashing may have some superficial appeal, but I doubt that it *really*
provides any increased functionality. Consider, for example, that a
momentarry distraction at an unpropitious moment. and you will miss the
flashes completely!

If you want to send me a copy of your workbook - after deleting/replacing
any sensitive data - I will have a look .

(replace dot and remove each X) :

nXorman_jXones@btXinternetDOTcom

 

[Carlton Patterson]

Cheers Norman,

I'll send you a copy of the workbook with an explanation.

Carlton

 

[Norman Jones]

Hi Carlton,

Paste a copy of the complete failing code into a reply.

 

[Norman Jones]

Hi Carlton,

Try this a/c instead:

nXorman_jXones@btXconnectDOTcom

(Replace DOT and remove each X)

 

[Carlton Patterson]

Hi Norman,

I tried sending you an email but I get a message that you don't have a
btinternet.com email account.

Do you have another email address?

Cheers

Carlton