Deleting data in 7 different sheets before I update workbook.

Sub Delete()
'
' Macro4 Macro
' Delete contents in attorney tabs
'
' Keyboard Shortcut: Option+Cmd+Shift+D
'
Dim lRow As Long
Dim i As Long


lRow = Range("A" & Rows.Count).End(xlUp).Row

Range("AAV, DMC, MWW, OCT, RSB, TCR, WJC, UNKN").Select
Range("A3").Select
ActiveWindow.ScrollDown = UBound() 'THIS ROW GIVES ME A SYNTAX ERROR.
Range("A3:UBound").Select 'DO YOU KNOW A FIX FOR THIS.
Selection.ClearContents 'I have a Mac

End Sub