セルの値をファイル名にするには

質問

現在下記のマクロを入力しています。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Target.Offset(-6, 2).Value = Date
End If
End Sub

この時　ファイル名を　SHEET1のA1　セルの値を利用してファイル名にするために下記の内容を入れてブックを保存したいと考えています。
上記のマクロが入っていないときは上手く行くのですが下記を追加するにはどうすればいいかご指導いただけませんでしょうか。
宜しく御願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
ActiveSheet.Name = Target.Value
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value
End If
End Sub

回答No.1

hige_082

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
ActiveSheet.Name = Target.Value
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value
End If
If Target.Address = "$C$10" Then
Target.Offset(-6, 2).Value = Date
End If
End Sub

もう少し勉強しましょう

お礼

ご迷惑掛けました。
有難うございます。