I need all conditional format removed for all cells once a row of data is moved to another sheet. If anyone can provide something to include within the code I'm currently using, I would appreciate it. Thank you!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyMsg As String
If Target.Column = 1 Then
MyMsg = MsgBox("Move " & Target.Row & " to Sheet2?", vbOKCancel, "Question")
If MyMsg = vbOK Then
Target.EntireRow.Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
Else
Exit Sub
End If
End If
End Sub
Moderators edit: code tages added
Bookmarks