Lỗi Run-time error 9 khi chuyển từ Excel 2016 sang excel 2010

[Miccpro]

Em có đoạn code này khi dùng các máy có excel 2016 thì thấy bình thường. Nay chuyển sang excel 2010 thị bị lỗi Run-time 9. Anh chị có thể giúp em được không ạ? Em xin chân thành cảm ơn!

Sub Format_Conditions()
Dim rng As Range
Set rng = Sheet1.Range("A3:A" & Sheet1.Range("D65535").End(xlUp).Row)
    With rng.Offset(, 1).Resize(, 2)
        With .FormatConditions.Add(Type:=xlExpression, Formula1:="=$A1=""MaKH_1""")
            .Font.Color = RGB(0, 73, 146)
        End With
    End With
  Set rng = Nothing
End Sub

 

[batman1]

Chưa biết có lỗi hay không nhưng chắc chắn không "chạy", không đúng ý.

Nếu đoán được MaKH_1 là name thì phải là

Sub Format_Conditions()
Dim rng As Range
Set rng = Sheet1.Range("A3:A" & Sheet1.Range("D65535").End(xlUp).Row)
    With rng.Offset(, 1).Resize(, 2)
        With .FormatConditions.Add(Type:=xlExpression, Formula1:="=$B3=MaKH_1")
            .Font.Color = RGB(0, 73, 146)
        End With
    End With
  Set rng = Nothing
End Sub

Tức =MaKH_1" chứ không thể là =""MaKH_1"""

Ngoài ra phải là $B3 chứ không thể là $A1.

Nói là code "chạy" bình thường (đúng ý?) trên 2016 thì kể cũng lạ thật.

Code rút gọn, tương đương

Sub Format_Conditions()
Dim rng As Range
Set rng = Sheet1.Range("B3:C" & Sheet1.Range("D65535").End(xlUp).Row)
    With rng
        With .FormatConditions.Add(Type:=xlExpression, Formula1:="=$B3=MaKH_1")
            .Font.Color = RGB(0, 73, 146)
        End With
    End With
  Set rng = Nothing
End Sub

hoặc

Sub Format_Conditions()
    With Sheet1.Range("B3:C" & Sheet1.Range("D65535").End(xlUp).Row)
        With .FormatConditions.Add(Type:=xlExpression, Formula1:="=$B3=MaKH_1")
            .Font.Color = RGB(0, 73, 146)
        End With
    End With
End Sub

Không có tập tin thì chỉ nhìn được như thế thôi.