Try using the Format and CvDate functions in conjunction so your comparing apples to apple

Dim dt1 as Date dt2 as Dat
dt1 = Format(CvDate(ActiveSheet.Range("b1")), "mmddyyyy")
dt2 = Format(CvDate(DateUpdateTextBox.Value ), "mmddyyyy")
If dt1= dt2 The
You might want to do an IsDate test first also


----- Adresmith wrote: ----

Please Help

I have a textbox where a user can type a date and a calculate button
user can press to look at all sheets in workbook and if the date in th
textbox matches a date in a cell on a worksheet then it copies tex
from the sheet and pastes it in another location

My problem is, I cannot make my vba recognize that the date in th
textbox matches the date in the cell (even when they do

Thanks in advance for your help

My code is below

Private Sub CalculateButton_Click(
For i = 3 To Sheets.Coun
Sheets(i).Selec
If ActiveSheet.Range("b1") = DateUpdateTextBox.Value The
ActiveSheet.Range("b18:c18").Cop
ActiveWorkbook.Sheets("Rollup").Activat
ActiveWorkbook.Sheets("Rollup").Unprotec
Range("f2").Selec
D
If IsEmpty(ActiveCell) = False The
ActiveCell.Offset(1, 0).Selec
End I
Loop Until IsEmpty(ActiveCell) = Tru
ActiveCell.PasteSpecial xlPasteValue
Els
End I
Nex
End Su


--
Message posted from http://www.ExcelForum.com