Hi I think there is something wrong with "For Each wks In ActiveWorkbook",
any help is much appreciated.


Sub taz()

Dim wks As Worksheet
Dim ActiveWorkbook As Workbook
For Each wks In ActiveWorkbook

If Cells(3, 1) = "taz" Then
Cells.Font.Bold = True

End If
Next wks
End Sub