Snasui Excel Forum

Code: Select all

    If Result = vbYes Then
        rng.EntireRow.Delete
    Else
            With rng.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
            End With
 ''''''''''''''''' มัน undo ไม่ได้''''''''''''''''''''''''''''''''''''''''
            With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
            End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Exit Sub
    End If