create new sheet

you could try but your going to need the full file name to have to work proper.

Sub Test()
On Error GoTo Error1
Workbooks.Open Filename:="S:\Administration\Administration\000 Taxi Requests 000\" & Range("e8") & ".xlsm"
Exit Sub
Error1:
Set wb1 = ActiveWorkbook
Set wb = Workbooks.Open (Filename:="S:\Administration\Administration\000 Taxi Requests 000\ 000 balnk 000")
wb.SaveAs Filename:="S:\Administration\Administration\000 Taxi Requests 000\" & wb1.Sheets("Sheet1").Range("e8"), FileFormat:=52
End Sub