Excel VBA另存为当前目录使用单元格文本作为文件名

我目前可以在Excel中使用tickbox作为工作簿保存在当前目录中:

ActiveWorkbook.SaveAs“aaa.xslm”

是否有从单元格文本内容中取得文件名,以便在工作簿中键入文本到一个单元格,然后当您单击checkbox它将保存为contentsofcellA1.xslm所以如果bbb被写入单元格A1的文件名将是bbb.xslm

任何帮助将不胜感激。

ActiveWorkbook.SaveAs (Range("A1").Value & ".xslm")