excel单元格数据与文本框数据同步

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.Text = Target.Text 
End Sub