Macro missing from list?

[SamAnnElizabeth]

I recorded a Macro and then went to edit it in VBA. This is what I have:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
'
' Protect Macro
'


'
Sheets("Program").Visible = True
Sheets("List1").Visible = True
Sheets("Status").Visible = True
Sheets(Array("Program", "Status", "List1")).Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("All Programs").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("Current", "Rating").Select
Range("Issues").Select
Selection.Locked = False

End Sub


When I try to run it (the play button) a dialogue box pops up to pick a macro, and my macro isn't on the list! Any advice on how to fix it? Thanks!

 

[par60056]

You have this as an event macro that fires automatically not a as user runnable macro.

 

[texasalynn]

the macro is "Private" so will not display. The macro you have is setup to run automatically by the condition stated (beforesave)

 

[SamAnnElizabeth]

Ok, but it's not running when I save. Isn't that the command I have it set for? It just seems to not do anything.

 

[texasalynn]

what are you wanting the macro to do?

 

[SamAnnElizabeth]

I want it to hide the sheets listed, then protect the 'All Programs' sheet, except I want my named ranges to be editable. I want it to perform automatically when the document is saved. I'm trying to lock the whole sheet, then unlock those ranges.

Am I close?