Preciso de uma ajuda .

Tenho o codigo abaixo que se refere a duas abas de minha planila.

Plan Clientes e Plan Venda1

Acontece que B1 = nome da aba Venda1, e o comando abaixo executa sua funcao se baseando por esta Range("B1").
Mas eu quero que faca a procura do cliente, que esta em Range("L4") da Planilha Venda1 e nao pelo nome desta aba.

'  Gerar Vendas ao Cliente

Dim nome1
nome1 = Range("B1").Value

Dim WC, WR As Worksheet

Dim Cont As Long
Dim Venda As String
Application.ScreenUpdating = False

Dim WT     As Worksheet

Set WC = Worksheets("CLIENTES")
Set WR = Worksheets(nome1)

Venda = WR.Range("B1").Value
       
Sheets("CLIENTES").Visible = True
    WC.Select
    WC.Range("B4").Select
    
    Do While ActiveCell <> ""
    
If ActiveCell = Venda Then
    
    ActiveCell.Offset(0, 15).Select
    Cont = ActiveCell
    Cont = Cont + 1
    ActiveCell = Cont
Else
    ActiveCell.Offset(1, 0).Select
    
End If
      
Loop
    WR.Select