Do you realize that using If...ElseIf means that the code will sto
after the first time that condition evaluates to true? You could d
something like this:

For x = 17 To 20
If Worksheets("April").Cells(x, 15).Value = "BOLD" Then
Worksheets("April").Cells(x, 3).Font.Bold = True
End If
Next x

- Piku

--
Message posted from http://www.ExcelForum.com

this works, but I need to go all the way to row 174

--
Message posted from http://www.ExcelForum.com

For x = 17 To 174
If Worksheets("April").Cells(x, 15).Value = "BOLD" Then
Worksheets("April").Cells(x, 3).Font.Bold = True
End If
Next

--
Message posted from http://www.ExcelForum.com

I also need to use this for May through March (the 11 other worksheets)
How would I go about implementing this change

--
Message posted from http://www.ExcelForum.com

Hi
missd that part :-) Though you could also use then:
sub foo()
dim row_index as long
Application.Run "'Part D-1 Regular.xls'!Unprotect_Sheet_Password"
for row_index = 17 to 200
with activesheet.cells(row_index,"O")
if .value = "Bold" then
.offset(0,-12).font.bold=true
exit for
end if
end with
next
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


Do you realize that using If...ElseIf means that the code will stop
after the first time that condition evaluates to true? You could do
something like this:

For x = 17 To 20
If Worksheets("April").Cells(x, 15).Value = "BOLD" Then
Worksheets("April").Cells(x, 3).Font.Bold = True
End If
Next x

- Pikus


---
Message posted from http://www.ExcelForum.com/

For z = 1 To 12
For x = 17 To 174
If Worksheets(MonthName(z)).Cells(x, 15).Value = "BOLD" Then
Worksheets(MonthName(z)).Cells(x, 3).Font.Bold = True
End If
Next x
Next

--
Message posted from http://www.ExcelForum.com

This is better...

Application.ScreenUpdating = False
For z = 1 To 12
With Worksheets(MonthName(z))
For x = 17 To 174
If .Cells(x, 15).Value = "BOLD" Then
.Cells(x, 3).Font.Bold = True
End If
Next x
End With
Next z
Application.ScreenUpdating = True

That should be a bit faster. - Piku

--
Message posted from http://www.ExcelForum.com

Great! This works, no problem. Thanks guys

--
Message posted from http://www.ExcelForum.com

:-

--
Message posted from http://www.ExcelForum.com