Exel vba vlookup fonksiyonu

[alprn19]

Merhaba arkadaşlar ilk postum ve yeniyim

Makro uygulamasında bir hücrenin değerini vlook ile aratip eşleştiriyorum.

Listeden o değeri ariyor yandakileri çekiyor hücreye.

kod gayet güzel çalışıyor ama listede (tabloda olmayan bir ismi arattığımda hata penceresi geliyor (debug end vs.) beni kod sayfasına atıyor.
Değer yoksa değer bulunamadı gibi bir msg box nasıl yazdırabilirim?
Teşekkürler
Kullandığım kod:
Range("'Teklif Maliyet Şablonu'!D5") = WorksheetFunction.VLookup(Sheets("Teklif Maliyet Şablonu").Range("D4"), Sheets("Liste").Range("C3:Bl200"), 2, False)

 

[ÖmerBey]

Merhaba, hoşgeldiniz,
Şu şekilde deneyebilirsiniz.

If WorksheetFunction.CountIf(Sheets("Liste").Range("C:C"), Sheets("Teklif Maliyet Şablonu").Range("D4")) > 0 Then
    Range("'Teklif Maliyet Şablonu'!D5") = WorksheetFunction.VLookup(Sheets("Teklif Maliyet Şablonu").Range("D4"), Sheets("Liste").Range("C3:Bl200"), 2, False)
Else
    MsgBox "Değer bulunamadı."
End If

 

[alprn19]

Merhaba, hoşgeldiniz,
Şu şekilde deneyebilirsiniz.

If WorksheetFunction.CountIf(Sheets("Liste").Range("C:C"), Sheets("Teklif Maliyet Şablonu").Range("D4")) > 0 Then
    Range("'Teklif Maliyet Şablonu'!D5") = WorksheetFunction.VLookup(Sheets("Teklif Maliyet Şablonu").Range("D4"), Sheets("Liste").Range("C3:Bl200"), 2, False)
Else
    MsgBox "Değer bulunamadı."
End If

İlginiz ve hızınız için teşekkürler tam istediğim gibi çalışıyor.