How to Begin Macro by copying selected cells, then paste those cells.

[PartTimeExcel]

Hi, I'm trying to begin begin my macro by copying cells that have been preselected with by the mouse. My goal is to be able to paste those cells onto another worksheet as the first step of my macro. I've tried a number of variations, and this was my most recent one, but the variable "startrange" is empty:

Dim labinfo As Worksheet
Dim lab2p As Worksheet
Dim labprint As Workbook
Dim startrange As Range

Set labinfo = ThisWorkbook.Worksheets("Print Labels Data")
Set lab2p = ThisWorkbook.Worksheets("Print Labels")
Set labprint = Workbooks.Open("\\server2\aNAHVAC\DevShipping\FBA Labels\Barcodes\FBA Return Barcodes.xls")
Set startrange = Selection

labinfo.Range("c2") = startrange

Please advise what code would work to copy the cells are highlighted with the mouse, and then paste them onto another sheet.
Thanks!

 

[AlphaFrog]

Put Set startrange = Selection before opening the other workbook. When you open the other workbook, the Selection changes to the Active workbook.

 

[PartTimeExcel]

Thank you.

I changed it so that the "Set startrange" line is the first set action, but it still does not paste anything per this code.

Of note, after I attempt to run the marcro, when I go to paste, this is on the clip board "Set startrange = Selection".

Any other thoughts?
Thanks!

 

[AlphaFrog]

Sub Macro1()
    Dim labinfo As Worksheet
    Dim lab2p As Worksheet
    Dim labprint As Workbook
    Dim startrange As Range
    
    Set startrange = Selection
    
    Set labinfo = ThisWorkbook.Worksheets("Print Labels Data")
    Set lab2p = ThisWorkbook.Worksheets("Print Labels")
    
    startrange.Copy
    labinfo.Range("c2").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    Set labprint = Workbooks.Open("\\server2\aNAHVAC\DevShipping\FBA Labels\Barcodes\FBA Return Barcodes.xls")
    
End Sub

 

[PartTimeExcel]

Well played.

Works perfect, very thankful for your help!