A Code Problem - In Microsoft Visual Basic, I'm getting this message,
Compile Error:- expected function or variabl
What's Wrong?
The Sub Hide_Protect() is highlighted in Yellow.
Cells.Select - Cells. is hightlighted in Blue.

Coding below:-


Sub Hide_Protect()
'
' Hide_Protect Macro
' Macro recorded 08/07/2011 by Chris
'
' Keyboard Shortcut: Ctrl+h
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("B9,B9,C9,G9,H9,H18").Select
Range("H18").Activate
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
Range( _
"B9,B9,C9,G9,H9,H18,H30,H31,H32,H33,H34,H35,H36,H37,H38,H39,H40,H41,H42,H43,H44,H45,H46,H47,H48, H49" _
).Select
Range("H49").Activate
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 42
Union(Range( _
"H56,H57,H58,H59,H60,H61,H62,G62,F62,E62,D62,C62,H66,H67,H68,H69,B9,B9,C9,G9,H9,H18,H30,H31,H32,H33, H34,H35,H36,H37,H38,H39" _
), Range("H40,H41,H42,H43,H44,H45,H46,H47,H48,H49,H50,H51,H52,H53,H54,H55")). _
Select
Range("H69").Activate
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 64
Union(Range( _
"H56,H57,H58,H59,H60,H61,H62,G62,F62,E62,D62,C62,H66,H67,H68,H69,H70,H71,H72,H73,H74,H75,H76,H77,H78 ,H79,H80,H81,H82,H83,H84,H85" _
), Range( _
"H86,H87,H88,H89,H90,B9,B9,C9,G9,H9,H18,H30,H31,H32,H33,H34,H35,H36,H37,H38,H39,H40,H41,H42,H43,H44, H45,H46,H47,H48,H49,H50" _
), Range("H51,H52,H53,H54,H55")).Select
Range("H90").Activate
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 75
Union(Range( _
"H56,H57,H58,H59,H60,H61,H62,G62,F62,E62,D62,C62,H66,H67,H68,H69,H70,H71,H72,H73,H74,H75,H76,H77,H78 ,H79,H80,H81,H82,H83,H84,H85" _
), Range( _
"H86,H87,H88,H89,H90,H91,H92,H93,H94,H95,H96,H97,H98,G98,F98,E98,D98,C98,B9,B9,C9,G9,H9,H18,H30,H31, H32,H33,H34,H35,H36,H37" _
), Range( _
"H38,H39,H40,H41,H42,H43,H44,H45,H46,H47,H48,H49,H50,H51,H52,H53,H54,H55")). _
Select
Range("C98").Activate
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Range("C98").Select
End Sub