Construction Calculator

I have two problems to solve on this workbook Index & a Trig problem.

Index ; I have entered the following syntax in the VBA editor but get error message


Private Sub Worksheet_Activate()

Dim wSheet As Worksheet

Dim l As Long

l = 1



With Me

.Columns(1).ClearContents

.Cells(1, 1) = "INDEX"

.Cells(1, 1).Name = "Index"

End With



For Each wSheet In Worksheets

If wSheet.Name <> Me.Name Then

l = l + 1

With wSheet

.Range("B1").Name = "Start_" & wSheet.Index

.Hyperlinks.Add Anchor:=.Range("A1"), Address:="",

SubAddress:="Index", TextToDisplay:="Back to Index"

End With



Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _

SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name

End If

Next wSheet

End Sub


: