A One-liner

[T De Villiers]

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

 

[Norman Jones]

Hi T,

Try replacing:

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

with:

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets


---
Regards,
Norman


"T De Villiers" <[email protected]>
wrote in message