diff --git a/RS/ExcelCal/README.md b/RS/ExcelCal/README.md
index cddb353..7e77ffc 100644
--- a/RS/ExcelCal/README.md
+++ b/RS/ExcelCal/README.md
@@ -12,7 +12,7 @@
 	Dim sSaveFolder As String
 	sSaveFolder = "Z:\Docs\RootShell\cal_xls\"
 	For Each oAttachment In MItem.Attachments
-		oAttachment.SaveAsFile sSaveFolder & Format(Now, "yyyymmdd") & ".txt"
+		oAttachment.SaveAsFile sSaveFolder & Format(Now, "yyyymmdd") & ".xlsx"
 	Next
 End Sub
 ```