Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$C$3" Then UserForm1.Show
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.