Help with Private Sub Worksheet_Activate()

[ABabeNChrist]

I’m having a problem using Private Sub Worksheet_Activate() to run a macro and to control scroll area
I know it something simple; I tried a few different ways

Code: Select all

Private Sub Worksheet_Activate()
    ColorandBold 'Macro
    Worksheets("Summary").ScrollArea = "A1:AM125"
End Sub

[HansV]

Have you placed the code in the worksheet module? It won't do anything if you place it in a standard module.

[ABabeNChrist]

Yes it is in a worksheet module and not a workbook module.
They seem to run separately but not together, no sure why

Update: Could it be sheet protection causing this?
Double Update: I added

Code: Select all

Private Sub Worksheet_Activate()
    ActiveSheet.Unprotect Password:=""
      Call ColorandBold 'Macro
      Worksheets("Summary").ScrollArea = "A1:AM125"
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:=""
End Sub

Now it seems to work

[HansV]

Alternatively, you could protect the sheet once using a line like this:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="", UserInterfaceOnly:=True

After that, you can manipulate the sheet in VBA without needing to unprotect and reprotect it.

[ABabeNChrist]

Very Cool thank you Hans