You need to iterate through the worksheet  names and check for "HQ".

Dim olWorksheet As Worksheet
Dim slWorkSheet As String

For Each olWorksheet In Worksheets
slWorkSheet = UCase(olWorksheet.Name)
If slWorkSheet = "HQ" Then
' Do something.
Else
' Do something else.
End If
Next olWorksheet