Worksheet testing?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim row As Integer
Dim col As Integer
Dim Employee1 As String
Dim Employee2 As String
Dim Employee3 As String
Dim Employee4 As String
Dim Employee5 As String
Dim Employee6 As String

Dim DescCntStr As String
Dim DescStr As String
Dim FullStr As String

row = Target.row
col = Target.Column


If Sh.Name = "Main" Then
' Look out only for description and employe's hours columns
    If col = 6 Or col = 9 Or col = 10 Or col = 11 Or col = 12 Or col = 13 Or col = 14 Then

        If Cells(row, 9).Value > 0 And Cells(row, 9) < 1000 Then
            FullStr = " " & "(" & Cells(1, 9).Value & ", " & Cells(row, 9).Value & " Hrs" & ")"
        End If

        If Cells(row, 10).Value > 0 And Cells(row, 10) < 1000 Then
            FullStr = FullStr & ", " & "(" & Cells(1, 10).Value & ", " & Cells(row, 10).Value & " Hrs" & ")"
        End If
    End If
End If
End Sub