Спасибо, немного подошло, но вот работает некорректно:  
 
Private Sub CommandButton2_Click()  
 
Dim bazaDannih As Worksheet, vvod As Worksheet  
Dim r As Long  
Dim myDate As Date  
 
Set bazaDannih = ThisWorkbook.Sheets("1")  
Set vvod = ThisWorkbook.Sheets("2")  
 
myDate = vvod.Range("N7").Value  
 
If myDate = 0 Then  
   vvod.Range("N7").Activate  
   MsgBox "xxx!!! ", 48, "xxxxx"  
   Exit Sub  
End If  
   
iCriteria1 = "=" & format(myDate, "#")  
 
bazaDannih.Range("C2").AutoFilter Field:=2, Criteria1:=iCriteria1  
 
Sheets("2").Select  
 
End Sub  
 
... фильтр срабатывает, но ничего не отображает, весь список скрывается :(  
В чем тут проблема???