Tom,
I pasted the Private Sub Worksheet_Activate() as you explained, saved, and restarted. Upon selecting that worksheet tab, I was posted the following error;
"Run-time Error 1004" Select Method of Range Class Failed"
Additionally, I get an "Debug" error (bold type in code below). What the macro is doing, is going to another worksheet, copying data to the worksheet in question, then removing any blank rows. It does a few more things (reason you don't see the "end sub), but it doesn't seem to want to go to the other specified worksheet for starters.
Private Sub Worksheet_Activate()
'
'Begin unprotect
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="mypassword"
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect Password:="mypassword"
Next ws
'Begin copy and paste routine into worksheet
Application.ScreenUpdating = False
Sheets("Daily Journal").Select
Range("A4").Select--------"Identifier under cursor not recognized"
ActiveWindow.ScrollRow = 273
Range("A4:N302").Select
Selection.Copy
Sheets("Daily Meals Report").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Begin Cell Zero Out Routine
For Each cell In Range("A2:A302")
If cell.Value = 0 Then
cell.Value = ""
End If
Next
'Begin Row Delete Routine
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete