how to loop thru cell in 2 columns

[DMB]

How do I get the cell information From the E cels based on the F cells

Dim sht As Worksheet
Dim cel As Range
Dim j As Integer
For Each sht In Worksheets
For Each cel In sht.Range("E:E")
If Cel= TotalHours.Projects.Text Then
'TotalHoursToDate.Text = TotalHoursToDate.Text +
Range(Sheet1!Range("E" + j))
'TotalHoursToDate.Text = 33
End If
Next cel
Next sht

[JNW]

I think anyone here will need more information in order to help you out.

"DMB" wrote:

> How do I get the cell information From the E cels based on the F cells
>
> Dim sht As Worksheet
> Dim cel As Range
> Dim j As Integer
> For Each sht In Worksheets
> For Each cel In sht.Range("E:E")
> If Cel= TotalHours.Projects.Text Then
> 'TotalHoursToDate.Text = TotalHoursToDate.Text +
> Range(Sheet1!Range("E" + j))
> 'TotalHoursToDate.Text = 33
> End If
> Next cel
> Next sht
>