If CutCopyMode = True coding

[Will S]

I'm experiencing an issue as to where I've got a SelectionChange macro set up, I can't change cells while keeping a range in CutCopyMode (I assumed this was because that code enters formula in cells, but even when it doesn't, it still cancels CutCopy). Can anyone think of a way to solve this?

I was trying:

IF Application.CutCopyMode = True then 
Dim CopyRange as Range
CopyRange = ActiveCell 'Could I maybe use something like Selection.Range?

'Rest of my Code

CopyRange.Copy
End if

I have no idea if this idea is possible all I know is my test didn't work, could someone give me advice on this?

Best regards,
~Will S

 

[RoryA]

You need something like:

IF Application.CutCopyMode = xlCopy or Application.CutCopyMode = xlCut then

 

[Will S]

That's working great and I think you've won the prize for for a quickest response I've seen on here.

The only thing I'm struggling with now (Was pretty sure I was going to hit this issue) is, it's taking the cell you're selecting as the CopyRange. Can you think of a way to have it copy the cell range you were on before the change? I imagine it will require BeforeRightClick but I don't know what the code would be for it to enter the current selection into a cell and then it could be a simple thing to just use that cell to select and copy the previous selection.

I don't suppose you know the answer to this as well?

Kind regards,
~Will S