Hi
I am facing some problem in copying controls on excel sheet.
I have used
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

This function copy only the content and not the controls.
I don't wanna use copy method because it copies the entire sheet with formulae, image and button.
Please suggest me some alternative.

Regards,
Gaurav

Suggest you place controls on a toolbar rather than on the worksheet itself.

Have you tried this one - got it with the macroeditor!
I expect you should set a reference to Microsoft Forms x.x Object Library under Tools-References.

   ActiveSheet.Shapes("CommandButton1").Select
    Selection.Copy
    Range("I28").Select
    ActiveSheet.PasteSpecial Format:="Microsoft Forms 2.0 CommandButton-objekt", _
        Link:=False, DisplayAsIcon:=False

If you know you don't want to copy e.g. comments, but all other shapes on the sheet, try this one:

Sub MoveControls()
Dim sh As Shape
Dim T, L As Integer

Sheets("Sheet1").Select
    For Each sh In ActiveSheet.Shapes
    If sh.Type <> msoComment Then
        T = sh.Top
        L = sh.Left
        sh.Copy
            Sheets("Sheet2").Select
                ActiveSheet.PasteSpecial Format:="Microsoft Forms 2.0 CommandButton-objekt", _
                Link:=False, DisplayAsIcon:=False
        sh.Select
        Selection.Top = T
        Selection.Left = L
    End If

    Sheets("Sheet1").Select
    Next
End Sub