Add sheet2 name in For..Each loop code..

[VBABEGINER]

I have new question here..
Please see my below code..

In red line code, I want to use Sheet2 now..How do i edit this..can any help..

Dim FndTxt As Range, zVal As Range, Fnd As Long
Set FndTxt = Range("AA3")
[COLOR=#ff0000]For Each zVal In Range("Z501", Range("Z" & Rows.Count).End(xlUp))[/COLOR]
    **** = WorksheetFunction.CountIf(Range("AA3", Cells(LastRow, LastCol)), zVal.Value)
    If **** > 0 Then
        For Fnd = 1 To ****
            Set FndTxt = Range("AA3", Cells(LastRow, LastCol)).Find(What:=zVal.Value, After:=FndTxt, _
            LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            Range("A" & FndTxt.Row).Interior.Color = vbGreen
        Next Fnd
    End If
Next zVal

 

[Fluff]

Do you mean
a) Sheet index 2 (ie the 2nd sheet in the workbook)?
b) A sheet called "Sheet2"?
c) The sheet CodeName "Sheet2"?

 

[VBABEGINER]

"Sheet2"....It will be hidden..

Do you mean
a) Sheet index 2 (ie the 2nd sheet in the workbook)?
b) A sheet called "Sheet2"?
c) The sheet CodeName "Sheet2"?

 

[Fluff]

This does not answer my question.

 

[VBABEGINER]

b) A sheet called "Sheet2" = Yes

Do you mean
a) Sheet index 2 (ie the 2nd sheet in the workbook)?
b) A sheet called "Sheet2"?
c) The sheet CodeName "Sheet2"?

 

[Fluff]

OK,Try this

For Each zVal In Sheets("Sheet2").Range("Z501", Sheets("Sheet2").Range("Z" & Rows.Count).End(xlUp))

 

[VBABEGINER]

Ohh, pretty easy..Thanks fro this.

OK,Try this

For Each zVal In Sheets("Sheet2").Range("Z501", Sheets("Sheet2").Range("Z" & Rows.Count).End(xlUp))

 

[Fluff]

Glad to help & thanks for the feedback.

Please do not post continuations of one thread to other threads
Thanks

 

[VBABEGINER]

ok, sure...thanks for this information..

Glad to help & thanks for the feedback.

Please do not post continuations of one thread to other threads
Thanks