CutCopyMode is reset following code

[moogthemoog]

Hi

I have some Calculate event code in my individual sheets to show a Click button if there's an error showing in cell K58, and if there isn't an error, then the Click button is removed.

However, this means that when I'm copying and pasting, I no longer have the ability to Copy and Paste several times (the marching ants around the copied cell), and the code seems to be resetting the CutCopyMode status.

Is there a way to circumvent this? Or to restore the CutCopyMode status after the code below is run?

I tried to set the CutCopyMode myself after the code, but no joy.

Thanks
Jon

Private Sub Worksheet_Calculate()

If IsError(Range("K58").Value) Then ClearError1.Visible = True Else ClearError1.Visible = False

End Sub