Add the marked line to sub listData
'final format wsOut.Columns(colPath).Replace What:="\\?\", Replacement:=vbNullString, LookAt:=xlPart wsOut.Columns(colName).HorizontalAlignment = xlLeft wsOut.Columns(colCreated).NumberFormat = "m/dd/yyyy" wsOut.Columns(colModified).NumberFormat = "m/dd/yyyy" wsOut.Columns(colSize).NumberFormat = "#,##0"