We cannot open a file using a wildcard – imagine the chaos if we could!
You’ll need to use Dir(ActiveWorkbook.Path & "\302113*.xlsm")
to loop through the files that this returns. If there will only be one then just use this function once:
Dim sFound As String
sFound = Dir(ActiveWorkbook.Path & "\302113*.xlsm") 'the first one found
If sFound <> "" Then
Workbooks.Open filename:= ActiveWorkbook.Path & "\" & sFound
End If
Dir Function :tech on the net