Hallo,
so sollte es funktionieren.
Sub DatenImport()
Application.ScreenUpdating = 0
Dim FileName As Variant
Dim WB1 As Object, WB2 As Object
Dim CRange As Range, PRange As Range
FileName = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xlsx),*.xlsx")
If FileName = False Then Exit Sub
Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open(FileName)
Set CRange = WB2.Sheets(1).Range("C3")
Set PRange = WB1.Sheets(1).Range("C3")
CRange.Copy
PRange.PasteSpecial
WB2.Close (False)
WB1.Close (True)
Application.ScreenUpdating = 1
End Sub