I couldn't figure out exactly what you wanted but this should help.

Sub CheckSelectYes()
'selections are NOT necessary
Application.ScreenUpdating = False
For Each cell In Sheets("Select").Range("selectLanguage_Area")
If cell.Value = "yes" Then cells(cell.row,1).copy 'somewhere??
Next
Application.ScreenUpdating = True
End Sub


--
Don Guillett
SalesAid Software

"rozB" wrote in message
...
I need help with this issue.

How to Code:
1. Find the cell value in a Mixed Reference Condition.
Absolute Column : Relative Row and Relative Column : Absolute Row
2. Copy and paste the result on a new or existing Worksheet.

Need to write a macro which will find the cell.value equal to "yes" in a
defined name_range, then locate and copy the cell.value in Column $A of the
same Row, return to position and locate and copy the cell.value in the same
Column and Row $10. (Will also need to paste the copied value in a new or
existing worksheet and return to position for the NEXT "yes" cell.value
Loop)


Sub CheckSelectYes()
Application.ScreenUpdating = False
Sheets("Select").Range("selectLanguage_Area").Sele ct
For Each cell In Selection
If cell.Value = "yes" Then 'Here is where the problem is!
Next
Application.ScreenUpdating = True
End Sub

Rozb "Losing Sleep in Everett"