Code import wont work when changed to use on .xlsm

When I use the code below it imports the data just fine when its .xls
but now wont work when I use it on .xlsm

How can I make it work

Sub XXXXXXX()

Dim vFile As Variant

'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xlsm", _
    1, "Select File To Open", , False)

'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile

'Set selectedworkbook
ActiveSheet.Range("A3:K27").Copy

Application.DisplayAlerts = False
ActiveWindow.Close

ActiveSheet.Unprotect

ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("M3")

Cells(1, 1).Select

End Sub