Повторное открытие открытой формы.

[vikttur]

Ваш пример с добавленным комбобоксом.

[vikttur]

Это?

Private Sub ComboBox1_Change()
   If Me.ComboBox1.Text = "" Then Exit Sub
     If Me.ComboBox1.Text = "1" Then
       Image1.Visible = False
       Image2.Visible = True
     Else
       Image1.Visible = True
       Image2.Visible = False
     End If
   Me.ComboBox1.Text = ""
End Sub

[segail]

Здравствуйте.
Не буду создавать пример. Разобрался сам.
Изначально код выглядел так:

Private Sub ComboBox3_Change()
    Dim i As Integer
    For i = 1 To 444
        If Cells(i, 1).Text = ComboBox3.Text Then
            If Cells(i, 1).EntireRow.Hidden = True Then Cells(i, 1).EntireRow.Hidden = False Else Cells(i, 1).EntireRow.Hidden = True
                Rows("450").EntireRow.Hidden = False
                ComboBox3.Value = ""        
        End If
    Next
End Sub

Что и приводило к сбою.
Когда вывел ComboBox3 из условия

Private Sub ComboBox3_Change()
    Dim i As Integer
    For i = 1 To 444
        If Cells(i, 1).Text = ComboBox3.Text Then
            If Cells(i, 1).EntireRow.Hidden = True Then Cells(i, 1).EntireRow.Hidden = False Else Cells(i, 1).EntireRow.Hidden = True
                Rows("450").EntireRow.Hidden = False
        End If
    Next
        ComboBox3.Value = ""
End Sub

То выполнение кода нормализовалось.
Смысл кода открытие и скрытие строк (строки изначально скрыты). Если в ComboBox3 выбрано значение то по условию происходит открытие строки, но повторно выбрать это значении без применение ComboBox3.Value = "" для скрытие строки было не возможно.