fixing show message when open workbook from dialog to copy data

[maghari]

hello
this is my code doesn't work very well i no know it works until this line

1 MsgBox "name of the file is not correct", vbCritical

i'm sure about the name of opened file it supposes open the file and copy data but the code open the file but not copy data because show the message
i hope some body help


Sub Test()
Dim file_name As Variant
Dim open_wk As Workbook
On Error GoTo 1
file_name = Application.GetOpenFilename(Title:="choose the file ", FileFilter:="Excel Files *.xlsx (*.xlsx),")
If file_name = False Then1 MsgBox "name of the file is not correct", vbCritical
Exit Sub
Else
Set open_wk = Workbooks.Open(file_name)
EndIf
Windows("TT1.xlsx").Activate
Sheets("sheet1").Select
Range("a2:E15").Select
Selection.CopyThisWorkbook.Activate
Sheets("sheet1").Select
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Close
Application.CutCopyMode = False
End Sub

[Paul_Hossler]

Get rid of 'Then1' and make it just 'Then'



If file_name = False Then1 MsgBox "name of the file is not correct", vbCritical

[maghari]

it gives me error in this line
On Error GoTo 1 i delete 1 also gives error

[Paul_Hossler]

I don't think you need the GoTo




Option Explicit


Sub Test()
Dim file_name As Variant
Dim open_wk As Workbook


file_name = Application.GetOpenFilename(Title:="choose the file ", FileFilter:="Excel Files *.xlsx (*.xlsx),")
If file_name = False Then
MsgBox "name of the file is not correct", vbCritical
Exit Sub
Else
Set open_wk = Workbooks.Open(file_name)
End If


Windows("touati1.xlsx").Activate
Sheets("sheet1").Select
Range("a2:d15").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("sheet1").Select
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Close

Application.CutCopyMode = False
End Sub

[maghari]

it gives me error run time 1004

[Paul_Hossler]

I could only look to see if it would open a workbook without error


I'm not a mind reader

Which line gives you the 1004 error?

It could be that "touati1.xlsx" doesn't exist, or there is no "Sheet1", or something else

[maghari]

the error in this line

Range("a2:d15").Select