Returning an offset value from a range

[snowbounduk]

I have the following code:

Sub AAddEmailAddressToEachProjectSheet()
    myCriteria = Sheets("Recd Plans").Range("C2:C168")
    For Each Crit In myCriteria
        With Sheets(Crit)
            .Range("A1").Value = "Project"
            .Range("A2").Value = "Summary"
        End With
    Next Crit
 
End Sub

Rather than enter "Project" in A1, I need the code to return the appropriate value from column K.

I have tried the follwoing code with various offset statements against

.Range("A1").Value = Crit

with no success.

Sub AAddEmailAddressToEachProjectSheet()
    myCriteria = Sheets("Recd Plans").Range("C2:C168")
    For Each Crit In myCriteria
        With Sheets(Crit)
            .Range("A1").Value = Crit
            .Range("A2").Value = "Summary"
        End With
    Next Crit
 
End Sub

Any help appreciated.

 

[gregtx81]

Glad to help. Thanks for feedback