Hi,

Am Tue, 30 Aug 2016 21:39:21 -0700 (PDT) schrieb shriil:

1 14-Aug-2016
2 14-Aug-2016
3 15-Aug-2016
4 15-Aug-2016
5 15-Aug-2016
6 17-Aug-2016
7 17-Aug-2016
8 17-Aug-2016
9 17-Aug-2016
10 17-Aug-2016
11 17-Aug-2016
12 18-Aug-2016
13 19-Aug-2016
14 19-Aug-2016

try:

Sub Test()
Dim LRow As Long

On Error GoTo skip
With Application
LRow = .Match(Range("G1"), Range("A:A"), 0) + .CountIf(Range("A:A"),
Range("G1")) - 1
End With
MsgBox LRow
skip:
MsgBox "No matches found"
End Sub


Regards
Claus B.
--
Windows10
Office 2016