For an example you can change your Save_New_Record sub to... (Add other date columns as needed. I only did it for first date column that I saw)
Private Function Save_New_Record() As Boolean '* ADD NEW RECORD
If MsgBox("Save new record?", vbQuestion + vbYesNo + vbDefaultButton2, "SAVE NEW RECORD?") <> vbYes Then Exit Function
ReDim arr(0, LB_00.ColumnCount)
With Sheets("MacMonitoring").ListObjects(1)
.ListRows.Add
For i = 0 To LB_00.ColumnCount - 1
Select Case i
Case i = 3, Is = 14, Is = 22, Is = 25, Is = 44
If i = 0 Or Not IsDate(Me("CT_" & Format(i, "00")).Value) Then
arr(0, i) = Me("CT_" & Format(i, "00")).Value
Else
g_sDate = Date2Serial(CDate(Me("CT_" & Format(i, "00")).Value))
arr(0, i) = Format(g_sDate, "dd mmmm yyyy")
End If
Case Else
arr(0, i) = Me("CT_" & Format(i, "00")).Value
End Select
Next
.DataBodyRange.Cells(.ListRows.Count, 1).Resize(, 46) = arr
.DataBodyRange.Columns(4).NumberFormat = "dd/mm/yyyy"
End With
resetfrm
Save_New_Record = True
End Function
Bookmarks