السلام عليكم
حيث ان الأخ محمد من الأصدقاء القدامى .. وقد راسلني .. فهذه المشاركة قد تكون هي الأولى لي في منتدى جيراننا الأكارم
مشاركة مع اخي ابي مروان وبعد اذنه
يلزم تحديث الخلايا لديك لإزالة حرف الهاء قبل تشغيل الدالة
يمكنك نقل الدالة لمحرر الورقة التي تريد تطبيق الكود عليها
Sub Utest()
Dim urg As Range
Set urg = Range("J2:L10") 'غير حسب النطاق لديك
Dim UCell As Range
For Each UCell In urg
UCell.NumberFormat = "@"
If UCell.Value = "" Then UCell.Value = ""
UCell.Value = Format(UCell.Value, "YYYY/MM/DD")
Next
End Sub