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