Macro to copy and paste values from one workbook to another

[jono7gold]

Hi there,


Can someone help? I need to copy the information from cells A1 to A30 within 'Sheet 1' in a workbook called 'HL Calculator', then open a another workbook which is in a hyperlnk in cell B1. Once this other workbook is open I need to paste the values only (not link) into 'sheet2' cells A1 to A30.


Hope this makes sense?


Thanks


Jon

 

[XLfriend777]

Hi jono7gold - Try the macro in the code below and modify as necessary for your needs. Hope this helps get you started.

Sub jono7Gold_CopyPaste()
Dim PasteSheet As String
    Windows("HL Calculator").Activate
    Range("A1:A30").Select
    Selection.Copy
    
    PasteSheet = Cells(1, 2).value 'Gets Paste workbook name from cell B1
    
    Windows(PasteSheet).Activate
    Range("A1").Select
    ActiveSheet.Paste
End Sub