VBA - On Error Resume Next

[george hart]

The code below works fine if I have an actual date in column AJ. However, should column AJ contain anything other than a date - for example text it falls over.

In short i need to amend the code so that If any cells in column column AJ <> date do nothing, else carry on.

The "On Error Resume Next" doesn't appear to work??

On Error Resume Next
For x = 5 To Cells(Rows.Count, "A").End(xlUp).Row
Dim a As Date, b As Date
a = Worksheets("Gateline Database").Range("AJ" & x)
b = Date
If Worksheets("Gateline Database").Range("AN" & x) = "" _
And Worksheets("Gateline Database").Range("AJ" & x) <> "" _
And a - b <= 28 Then
 
Do something....I have left this code out...

Any ideas most appreciated and thanks in advance...

 

[trunten]

Try this and let me know how it goes

    Dim a As Date, b As Date, x As Long
    b = Date
    With Worksheets("Gateline Database")
        For x = 5 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If IsDate(.Range("AJ" & x)) Then
                a = .Range("AJ" & x)
                If .Range("AN" & x) = "" And a - b <= 28 Then
                    'Do stuff here
                End If
            End If
        Next x
    End With

 

[george hart]

That worked a treat - thanks very much...