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