mike760534211
New Member
- Joined
- Sep 25, 2014
- Messages
- 13
i am using the following to clear all unlocked cells in multiple sheets of a workbook.
it works great but for some reason it deletes all my hyperlinks in the workbook also. is there a way to correct this?
Code:
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
On Error Resume Next
wks.UsedRange.Value = vbNullString
Err.Clear: On Error GoTo -1: On Error GoTo 0
Next wks
Set wks = Nothing