VBA
Saturday, April 20, 2019
Entire row will be blank
Entire row will be blank
Private Sub CommandButton2_Click()
On Error Resume Next
sbUnProtectSheet
rows(ActiveCell.Row).EntireRow.Value = ""
sbProtectSheet
End Sub
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment