Kẻ khung vùng dữ liệu từ sheet khác (1 người xem)

[tuanhuycntt]

Dear các Anh/Chị GPE

Em đang gặp 1 chút vấn đề về kẻ khung cho vùng dữ liệu từ Sheet khác.

Vùng dữ liệu ở Sheet3
E cần gán 1 nút ở Sheet1 nhưng khi chạy nó toàn báo lỗi dòng Rng.Select mặc dù em đã để cả code trong With Sheet3 .... End With

Các Anh/Chị chỉ giúp em lỗi này ở đâu với ạ

Em xin cảm ơn!

Sub KE_KHUNG()

    Dim LastRow As Long
    Dim Rng As Range
    Set SB = Selection.Borders
   
   
    With Sheet3
    Set Rng = .Range("A5:E" & getLR(.Name, "E"))
    Rng.Select
   
    SB(xlDiagonalDown).LineStyle = xlNone
    SB(xlDiagonalUp).LineStyle = xlNone
   
    With SB(xlEdgeLeft)             'ke trai
        .LineStyle = xlContinuous
    End With
    With SB(xlEdgeRight)            'ke phai
        .LineStyle = xlContinuous
    End With
    With SB(xlEdgeTop)              'ke tren
        .LineStyle = xlContinuous
    End With
    With SB(xlEdgeBottom)           'ke duoi
        .LineStyle = xlContinuous
    End With
    With SB(xlInsideVertical)       'ke cot giua
        .LineStyle = xlContinuous
    End With
    With SB(xlInsideHorizontal)     'ke hang giua
        .Weight = xlHairline        'xlThin: Nét lie`n.  xlHairline: Nét dut'
        End With
    Range("C2").Select
    End With
End Sub