Macro para guardar hoja en txt con nombre fecha

Utiliza la siguiente macro

Sub hojatxt()
'por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    wp = ThisWorkbook.Path
    ActiveSheet.Copy
    d = Format(Day(Date), "00")
    m = Format(Month(Date), "00")
    a = Year(Date)
    f = d & "-" & m & "-" & a
    ActiveWorkbook.SaveAs _
        Filename:=wp & "\" & f, _
        FileFormat:=xlTextMSDOS, _
        CreateBackup:=False
    ActiveWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Saludos.DAM
Si es lo que necesitas.