Im trying to make a code that will let me select another excel document, i want to copy a cell, and paste it into my original excel file. This keeps giving various errors, and i cant seem to find the best way to do this. Would appreciate any help. (the code isnt done either, i just dont want to make the rest before i know that this part works.)

This is my code so far

Sub test()
Dim wb As Workbook
Dim wb2 As Workbook
Dim vFile As Variant
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlManual

Set wb = ActiveWorkbook

vFile = Application.GetOpenFilename("Excel-files,*.xlsx", _
1, "Select One File To Open", , False)

If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile
'Set targetworkbook
Set wb2 = ActiveWorkbook
wb2.Worksheets("Sheet1").Range("C12").Copy
Set wb = ActiveWorkbook

wb.Worksheets("Data").Range("B1").Select ' This step keeps yielding the error
Selection.PasteSpecial Paste:=xlPasteValues


End Sub