fyrigoyeno,
This might work
Case "PROVEEDORES" If Not Intersect(Selection, Sh.Columns(13)) Is Nothing Then ToggleCutCopyAndPaste Intersect(Selection, Sh.Columns(13)) Is Nothing ElseIf Not Intersect(Selection, Sh.Columns(17)) Is Nothing Then ToggleCutCopyAndPaste Intersect(Selection, Sh.Columns(17)) Is Nothing End If




Reply With Quote