Hi

Dim nrows as long
nrows=Application.Countif(Range("B2:B100"),Date)
Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:AB" &
nrows)


--
Regards

Roger Govier


"Dileep Chandran" wrote in message
oups.com...
Hello everybody,

I have a macro to copy a range of cells (A2:AB100) from sheet1 and
paste it to another file as values.


Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:AB100" )


I would like to insert one more code so as it should copy only todays
data;


If B2 = todays date then the range of cells to copy should be (A2:AB2)
If B3 = todays date then the range of cells to copy should be (A3:AB3)
If both B2 and B3 = todays date then the range of cells to copy should
be (A2:AB3)
If all the cells from B2 to B100 = todays date then the range of cells
to copy should be (A2:AB100)


Any help is greatly appreciated.


Thanks & Regards
Dileep Chandran