Theo y.c của chủ topic, sửa lại thế này cho tối ưu và lấy đúng Mmin1, Mmin2, Mmax
Sub Short()
ActiveSheet.Unprotect
' If Not MsgBox("ban co chac chan Loc AN dam khong (Y/N)?", vbYesNo + vbDefaultButton2) = vbYes Then Exit Sub
Application.ScreenUpdating = False
' Kiem tra du lieu Bang...