Sub Kaydet()
    Dim DOSYA As String
    DOSYA = ThisWorkbook.Sheets("DoktorOrder").Range("C1").Value
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & DOSYA & ".XLTM", FileFormat:=xlOpenXMLTemplateMacroEnabled
End Sub