Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2")) Is Nothing Then
    With Range("A2").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:=Replace([b2], ";", ",")
  End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Static Loged As Boolean
If Not Intersect(Target, Range("F:F")) Is Nothing And Not Loged Then
   'ищем последнюю занятую строчку в логах
   lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
   'заносим имя пользователя и дату-время входа в файл
   Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")
   Worksheets("Лог").Cells(lastrow + 1, 2) = Now
   Loged = True
End If
End Sub

Select Case MultiPage1.Value + 1
Case 4
    Me.Height = 400
Case 2
    Me.Height = 300
End Select