thanks that worked!!!

but in my never ending quest to learn more, why?

cheers
Paul

Barb Reinhardt wrote:
I'd try putting

Application.enableevents = FALSE at the beginning and
Application.enableevents = TRUE at the end.

HTH,
Barb Reinhardt



"PFS" wrote:

Hi All,

I am trying to copy some values within a sheet as I deactivate it.
When I leave the sheet, it seems to get stuck in a constant loop.

Can anybody tell me what the problem might be?

Private Sub Worksheet_Deactivate()

Range("BM5:BM44").Copy
Range("D96").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

Range("BM48:BM87").Copy
Range("D95").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

Application.CutCopyMode = False

End Sub

cheers
Paul