"Linas Petkevičius" <linas@NONOlekiam.lt> wrote in message news:m1h7f2$i5n$1@trimpas.omnitel.net...
> DropDown'as ne shht objektas hierarhijoj. Naudok DropDown1_Change()
> 
 o, ačiū už mintį.  suveikė:

Sub DropDown1_Change()
    Range("B4").Select
     If ActiveCell.FormulaR1C1 > 3 Then MsgBox "Daugiau uz 3"
   End Sub