Email 单元格到文本框并返回，仅包含电子邮件地址

我有一个电子表格，其中M列在M1中包含一个标题，M2-M22单元格包含电子邮件地址，这些地址后来被用于以.pdf格式通过电子邮件发送工作表。我已经找到了附加的公式，以确保专栏只包含电子邮件地址，但我正在尝试调整它。用户将单击命令按钮，调出一个UserForm，其中包含22个文本框，用于更改、添加或删除要发送的电子邮件的电子邮件地址，然后将文本框中的电子邮件地址放回工作表的单元格中。（单元格将被锁定，只能通过用户窗体改变）。但是，我希望能够通过在空白单元格中插入数字1-22来列出文本框的顺序，以显示用户使用的顺序——防止空白单元格-然后将文本框值仅从TextBoxes插入到带有有效电子邮件的单元格中。有没有什么想法可以修改这个代码，或者有没有人有更好的想法

    If Target.Column = 13 And Target.Value <> "" And Evaluate("COUNTIF(" & Target.Address & ",""*@*.*"")") <> 1 Then
        Target.ClearContents
        Target.Activate
        MsgBox "Please enter a valid email address."
    End If
End Sub```

Thank you in advance for any help!

如果Target.Column=13和Target.Value“”，并计算（“COUNTIF”（&Target.Address&），“*@**”）1，则
Target.ClearContents
目标，激活
MsgBox“请输入有效的电子邮件地址。”
如果结束
端接头```
提前感谢您的帮助！

My code'Me.TextBox1.Text=CStr（ActiveSheet.Range（“M1”）.Text）'。稍后，我会将文本框中的任何内容插入到它的原始单元格中，这样我可以在放回时验证电子邮件地址，这是最简单的。我的代码“Me.TextBox1.Text=CStr（ActiveSheet.Range（“M1”）.Text）”。稍后，我会将文本框中的内容插入到它的原始单元格中，这样我可以在放回时验证电子邮件地址，这是最简单的。