Creating Macro using Active Workbook

If code is all in same workbook you do not need name or Run:

Sub Hide_All()
'
' Hide_All Macro
' Hide all blank lines
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Call Expense_Hide
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ACTUAL VARIANCES").Select
Call Actual_Variances
Sheets("PER VARIANCES").Select
Call Per_Vairances
Sheets("TOTALS").Select
Call Totals
End Sub