아래 첨부 파일은 매크로 [실행] 버튼을 클릭하면 [I1] 셀에 유효성 검사 목록을 설정합니다. 실제로 정상적으로 작동은 되는데, 저장하고 다시 열면 아래와 같이 문서 복구가 진행이 됩니다. 사용된 코드는 매우 간단해서 아래와 같습니다. Sub test() Dim strText As String Dim int1 As Integer With CreateObject("Scripting.Dictionary") For int1 = 2 To 21 If Not .Exists(Cells(int1, 2)) Then .Add Cells(int1, 2), "" Next int1 strText = Join(.keys, ",") End With With Range("I1").Validation .Delete .Add xlVa..
