I want to add a status bar update as this code process's
How can I do this so it shows the progress or maybe just shows that something is happening?
Thanks for any help.
Code:
Sub ClearUnlockedCells()
'
' ClearUnlockedCells Macro
' This Macro Will Clear All Unlocked Cells.
'
'
If MsgBox("Clear All Unprotected Cells On This Sheet?", vbYesNo + vbQuestion + vbDefaultButton2, "Clear All Unprotected Cells") = vbNo Then
MsgBox "Operation Cancelled, No Changes Have Been Made.", vbInformation
Exit Sub
End If
ActiveSheet.Protect
Dim WorkRange As Range
Dim Cell As Range
Set WorkRange = ActiveSheet.UsedRange
For Each Cell In WorkRange
If Cell.Locked = False Then Cell.Value = ""
Next Cell
MsgBox "All UnLocked Cells Have Been Cleared!", vbInformation
End Sub
How can I do this so it shows the progress or maybe just shows that something is happening?
Thanks for any help.