大神们帮忙看看，每次Excel打开都提示修复，一修复之前创建的VBA都不见了

Samtic

每次打开Excel都会提示下面的界面



我再VBA加了 Validation 对象，然后只要用了下拉菜单，下次重新打开就会这样，我用的代码如下


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
l = Worksheets(2).Cells(Rows.Count, 7).End(3).Row

   Set d = CreateObject("scripting.dictionary")
   arr = Sheet2.Range("G2:G" & l)
   For i = 1 To UBound(arr)
      If Len(arr(i, 1)) Then d(arr(i, 1)) = ""
   Next

   With Range("B2").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",")
   End With


End Sub



谢谢了