On Wednesday, 2 July 2014 17:43:54 UTC+3, Claus Busch wrote:
Hi Hakan,



Am Wed, 2 Jul 2014 07:36:46 -0700 (PDT) schrieb hbj:



ActiveSheet.OLEObjects("cmdSetReset").Top = rngAct.Top



try:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

cmdSetReset.Top = Target.Top

End Sub





Regards

Claus B.

--

Vista Ultimate / Windows7

Office 2007 Ultimate / 2010 Professional

Thank you Claus,

Your code is of cource shorter, but it does not solve the main problem. When the code runs it grayes out the Clipboard tool. Only Paste as image is available.

Håkan