Clear data from unlocked cells

wpryan · #4 02-22-2016, 03:00 AM

Hi, I decided to change the code to reference named ranges instead of "UsedRange". However I am getting error 1004, Application or Object Defined Error on the line which is in red. I can't figure this out... Modified code:

Code:

Sub ClearUnlockedCells()

Dim msg As String, ans As Variant
 
    msg = "Completing this action will delete all form data! Continue?"
    ans = msgbox(msg, vbOKCancel, "Z-Models SCP Info")

    Select Case ans
    Case vbOK

        Application.ScreenUpdating = False
        'On Error Resume Next
        Application.DisplayAlerts = False
        
        Range("Z_GD") = ""
            
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        
        
    Case vbCancel
    End Select

    Sheets("General Data").Range("B4").Select
    
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy data from certain Cells in new sheet	zain_shaikh	Excel Programming	1	02-11-2015 07:35 PM
How to populate cells in Sheet2 with Data Source query using cell data from Sheet1	bobznkazoo	Excel	2	03-27-2014 11:14 AM
data in some cells moving	Sherriann	Excel	1	08-07-2013 06:52 AM
How can I fill the below emty cells with above cell data?	Learner7	Excel	8	06-28-2011 12:10 PM
How to combine different cells data in one cell?	Learner7	Excel	1	07-28-2010 12:07 PM