Function Call

[Darren Smith]

Many thanks in advance

Using a function to check a column "E" to the last row if the date format is "DD/MM/YYYY" then it needs to copy the data to the next column "F"
Says DateFormatCheck "Argument not optional" when I try to add function to the command button

Command button code below

Private Sub cmdUpdate_Click()

Dim res As Integer
Dim ws As Worksheet


  Set ws = ThisWorkbook.Worksheets("TGS JOB RECORD")

With ws

  If DateFormatCheck = True Then .Range("E2:E").Copy Range("F2:F")
    End If
    End With
    
ThisWorkbook.RefreshAll

      End Sub

Then Function Code below

Function DateFormatCheck(cells As Range) As Boolean

Dim ws As Worksheet
Dim Rng As Range
Dim LRow As Long

Set ws = thisworkbookworksheets("TGS JOB RECORD")

Set LRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set Rng = ws.Range("E2:E" & LRow)

    DateFormatCheck = False
    If IsDate(Rng.Cells.Value) Then
        If Rng.Cells.NumberFormat = "dd/mm/yyyy;@" Then
            DateFormatCheck = True
        ElseIf CInt(Mid(Rng.Cells.Value, 1, 2)) <= 12 Then
            DateFormatCheck = True
        End If
    End If
End Function

 

[RoryA]

In that case, I'd try something like:

With ws
   for each cell in .Range("E2:E" & LastRow).Cells
       If IsDate(cell) then cell.offset(, 1).Value = cdate(cell.value)
    next cell
    End With

 

[Darren Smith]

What should I dim the cell as?

 

[RoryA]

Dim cell as Range

 

[Darren Smith]

It now says the Method range of object worksheet failed

For Each Cell In .Range("E2:E" & LastRow).cells

 

[RoryA]

Are you still calculating LastRow as you were before? You seem to like changing the code without telling us...

 

[Darren Smith]

Sorry about that all working fine now.
Thank you for your help