How do I add to a autorun macro when workbook open

[ghrek]

Hi

I have the following macro that deletes data in non protected cells of which I want to keep but I also want it to select page called "INSTRUCTIONS" when its run.

Any Ideas?

Private Sub Workbook_Open()
 Dim ws As Worksheet
Dim cl As Range

For Each ws In ActiveWorkbook.Sheets
For Each cl In Sheets(ws.Name).UsedRange.Cells
If cl.Locked = False Then
cl.ClearContents
End If
Next cl
Next ws
'
End Sub

 

[Logit]

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim cl As Range

    For Each ws In ActiveWorkbook.Sheets                '<--- This line of code selects all sheets
        For Each cl In Sheets(ws.Name).UsedRange.Cells
            If cl.Locked = False Then
                cl.ClearContents
            End If
        Next cl
    Next ws
'
End Sub

As shown in the code above, the annotated line selects all sheets. Why is your macro not
selecting sheet INSTRUCTIONS as well ? Have you protected it or something else ?

 

[ghrek]

the sheets are protected andthe sheet called INSTRUCTIONS was added later but will also be protected

Sorry just read what I posted again and what I meant was I need it to go to sheet called INSTRUCTIONS after macro has run.

SORRY

 

[Logit]

 If cl.Locked = False Then
                cl.ClearContents
            End If
        Next cl
    Next ws
    
Sheets("INSTRUCTIONS").Select