I get the following error, "Next without For". How do I change my code to
fix it?

'Format Colums which are John
For a = 4 To 31
If Cells(a, 1).Value = "John" Then
For b = 2 To 32
If Cells(2, b).Value = "Fri" Then
Cells(a, b).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
Next b
End If
Next a

MsgBox "Formatting Complete"
Exit Sub
Error:
Exit Sub
End Sub

Wasn't this answered comprehensively yesterday???

--

Vasant

"John Keturi" wrote in message
news:O8vvc.42031$mm1.13316@fed1read06...
I get the following error, "Next without For". How do I change my code to
fix it?

'Format Colums which are John
For a = 4 To 31
If Cells(a, 1).Value = "John" Then
For b = 2 To 32
If Cells(2, b).Value = "Fri" Then
Cells(a, b).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
Next b
End If
Next a

MsgBox "Formatting Complete"
Exit Sub
Error:
Exit Sub
End Sub

John,

It looks like you need an enf if after next a


Charle

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

Hi John,

Responding to your error, and not otherwise looking at your code, you need
to insert:
End If
after your:
End With

---
Regards,
Norman

"John Keturi" wrote in message
news:O8vvc.42031$mm1.13316@fed1read06...
I get the following error, "Next without For". How do I change my code to
fix it?

'Format Colums which are John
For a = 4 To 31
If Cells(a, 1).Value = "John" Then
For b = 2 To 32
If Cells(2, b).Value = "Fri" Then
Cells(a, b).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
Next b
End If
Next a

MsgBox "Formatting Complete"
Exit Sub
Error:
Exit Sub
End Sub

Norman's answer is correct. This is a good example of why it's good t
use indentation in your code listing -- it makes it much easier to spo
these kinds of "out of balance" type errors. See indented code below
Also suggest that you not use VB keywords, like "Error" as labels
Finally, you likely realize that your your last "exit Sub" i
unnecessary but doesn't do any real harm; perhaps you included it jus
to make the code a bit more explicit, and thus clearer -- not a ba
idea.

'Format Colums which are John
Sub test()
On Error GoTo ErrHandler:
For a = 4 To 31
If Cells(a, 1).Value = "John" Then
For b = 2 To 32
If Cells(2, b).Value = "Fri" Then
Cells(a, b).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
End If
Next b
End If
Next a
MsgBox "Formatting Complete"
Exit Sub
ErrHandler:
Exit Sub
End Sub

Regards,
billly

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

I just realized that this board doesn't show the indentations in the
code. Sorry for that, but I think you'll get the idea.

billyb


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