如何根据单元格内容自动更改工作簿名称

NdFeB

目前sheet4工作表种有以下代码，如何让这个代码只运行1次，之后C4单元格值固定不变。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Sheet4.Range("C4").Value = Left(ThisWorkbook.Name, 12)
End Sub

然后执行其他代码，使工作簿的名称随着单元格C9、C12、C15单元格值自动进行改变，例如C9值是1、C12值是2、C13值是3、那么工作簿的名称就变成“巡检模板123”