Sub
FileOpenandCloseTest()
fileToOpen = Application _
.GetOpenFilename(
"Excel Files (*.xlsx; *xls), *.xlsx; *xls"
)
If
fileToOpen <>
False
Then
MsgBox
"Open "
& fileToOpen
End
If
Windows(
"fileToOpen"
).Activate
Range(
"A1"
).
Select
Selection.Copy
Windows(
"TestMakro.xlsm"
).Activate
Range(
"D1"
).
Select
ActiveSheet.Paste
Windows(
"fileToOpen"
).Activate
With
ActiveWorkbook
.Close SaveChanges:=
False
End
With
Application.DisplayAlerts =
False
End
Sub