用vba得到工作表的表明

[blliy117]

请教这样一个vba怎么写:
excel中,在某个单元(如:C1)输入1,回车,那么单元格D1将得到第一个工作表的名字,如果输入2,则得到第二个工作表的名字.

[ChinaOBS]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address(0, 0) = "C1" Then
Range("D1").Value = "Null"
Range("D1").Value = Sheets(Target.Value).Name
End If
End Sub