Создание файла VBA

Простое

iFullName = ThisWorkbook.Path & "name.xlsx"

С именем из ячейки:

iFullName = ThisWorkbook.Path & "\" & Range("A1").Value & ".xlsx"