"ActiveSheet.Name" no entanto, se você estiver dentro do código da planilha, poderá usar "Me.Name", que é útil se a planilha não estiver ativa, mas o código estiver sendo executado.
Workbooks.Open Filename:= "\some\folder\johndoe\Estimate\" & ActiveSheet.Name & ".xls"