Tenta assim:

ThisWorkbook.Path & "gabaritos"

ThisWorkbook.Path não deve vir "entre aspas".

Alem da dica do Edson :
ChDir ThisWorkbook.Path & "gabaritos"

, é necessário alterar a linha :

ActiveWorkbook.SaveAs Filename:= _
Path & x & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Uma vez que usou antetriormente a Instrução ChDir, a mesma redefiniu o Caminho, alterando o diretório ou pasta atual, e Path já assimila automaticamente este novo Caminho.

Se quiser saber antes se está no diretorio correto use a instrução abaixo, logo depois de usar o ChDir :

MsgBox "The path is " & Application.Path

Uma outra obs, é que você está salvando uma cópia, então se for executar uma segunda vez este arquivo precisará redefinir o Path.

[]s

@Edson
@Mauro

Valeu meus queridos!!!!