For lngContador = 2 To lngUltimaLinhaInfoInvestidor
shtInfoInvestidor.Cells(lngContador, 7).FormulaR1C1 = "=VLOOKUP(RC[-5],Cadastro_Usuário!C[-5]:C[6],12,0)"
If shtInfoInvestidor.Cells(lngContador, 7) = "0" Then
strInputBox = InputBox(Cells(lngContador, 1), "Defina o Sexo do Cliente")
shtInfoInvestidor.Cells(lngContador, 7) = strInputBox
Agora eu queria que ele preenchesse essa informação de Sexo na planilha Cadastro_Usuario, mas para isso ele teria que usar o email da pessoa que esta no Range: cells((lngContador, 2) , achar o correspondente na planilha Cadastro_Usuario e preencher na coluna M.
End If
Next lngContador
Entendeu?