Can someone fix this code? Trying to create vba code that will prompt opening any file

Sub CarryOverData()

Dim FName As String
Dim wkBook As Workbook

With Application
.ScreenUpdating = False
FName = .GetOpenFilename
End With

If FName <> "False" Then
Set wkBook = Workbooks.Open( _
Filename:=FName)

With wkBook
.Worksheets("Sheet1").Range("A:Z").Copy _
Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A:Z")

.Close _
SaveChanges:=False
End With
End If

With Application
.CutCopyMode = False
.ScreenUpdating = True
End With

End Sub

well what's wrong with the code? what is the error message you're getting. you have a couple of options I think. you can use the windows SHELL() to open files with their default programs. or you can use GETOPENFILNAME() like you are doing. for SHELL, you would do this:

Please Login or Register  to view this content.

you can also use the FILE SYSTEM OBJECT for IN/OUT operations like data streaming (e.g. - byte-by-byte reading). you can read about that here: https://docs.microsoft.com/en-us/off...mobject-object