我是一个知天命的人了，还想东想西的
求教各位
表格A中如5C单元填入XT2019-031-***，则自动创建表格B的副本，且对副本进行重命名为表格B***，三个*与表格A中单元格一致。如何编程。真心请教。

Sub creatsheet()
Dim a, b As String
Dim SH As Worksheet
Dim S As Range
Dim aa As Integer
For Each S In Application.Selection
a = Left(S, 2)
If a = "XT2019" Then
   b = Right(S, 3)
       For aa = 1 To Sheets.Count
          If Sheets(aa).Name = b Then
             MsgBox ("这个文档已存在")
             GoTo IPTR
          End If
       Next
     Set SH = Worksheets.Add
         SH.Name = b
IPTR:    Worksheets("SHEET1").Select
End If
Next
End Sub

谢谢！

能给我解说下吗?