A One-liner

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

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" <T.De.Villiers.29p6a0_1150801208.634@excelforum-nospam.com>
wrote in message
news:T.De.Villiers.29p6a0_1150801208.634@excelforum-nospam.com...
>
> 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
>
>
> --
> T De Villiers
> ------------------------------------------------------------------------
> T De Villiers's Profile:
> http://www.excelforum.com/member.php...o&userid=26479
> View this thread: http://www.excelforum.com/showthread...hreadid=553558
>