There is a solution to to this on this site, which resolves us to uk dates in one column, col A, i have a second column, col G, which remains the same. How do I amend the code to convert two columns.

**Below code was submitted by MickG


Private Sub UserForm_Initialize()
Dim Data, Dn As Long, Ac As Long, Ray
Data = Range(Range("dateentry"), Range("i65536").End(xlUp)).Value
ReDim Ray(1 To UBound(Data, 1), 1 To UBound(Data, 2))

With ListBox1 'Entries
    .ColumnCount = 11
'    .ColumnWidths = "55,295,95,230,50"
End With

For Dn = 1 To UBound(Data, 1)
   For Ac = 1 To UBound(Data, 2)
        If Ac = 1 Then Data(Dn, Ac) = Format(Data(Dn, Ac), "dd/mm/yy")
        Ray(Dn, Ac) = Data(Dn, Ac)
    Next Ac
Next Dn
ListBox1.List = Data
End Sub
If i resolve this once I will post the code. Thanks for any help.

Ally.