making cells bold

[thephoenix12]

Hi,

I'm new to visual basic programming, and I'm having some trouble with a simple task. I'm trying to make all the cells in a certain range on all my worksheets bold.
Here is the code I am using:

Sub Bold()
Dim RowB As Range
Set RowB = Worksheets("Sheet1:Sheet70").Range("B9:B60")
RowB.Font.Bold = True
End Sub

When I try to run it, a message pops up saying "out of range". Any suggestions? Also, is it possible that instead of using the range "sheet1:sheet70", I could just write something that would make the program perform the task on all the sheets in the workbook? This would be preferrable in case new sheets are added, so that I do not need to alter the code.

Thanks,

-Steve

[thephoenix12]

Never mind I got it.