Special paste by values, variable not found

[Lifeseeker]

Hi there,

I'm trying to paste the values of worksheet 1 by value. Please see the attached two files.

When I run the code, it indicates that variable ( xlpastevalues) is not defined.

It is not a variable....

can someone help?

Private Sub Command0_Click()


  Dim xlApp As Object
       
        Set xlApp = CreateObject("Excel.Application")
       
        xlApp.Visible = True
        xlApp.Workbooks.Open "Your location\metric_DEV.xls", True, False
        
        With xlApp.activeworkbook.worksheets("Metric summary")
        .usedrange.copy
        .range("A1").pasteSpecial paste:=xlPasteValues
    End With
End Sub

Can someone help?

Thanks

 

[fernando.rosales]

try changing it to this (make your selection range how you want it):


.Range("A1:Z100").Copy
.Range("A1").Select

.Selection.PasteSpecial Paste:=xlPasteValues

Range("A1").Select

Application.CutCopyMode = False