Try this:
<font face=Courier New><SPAN style="color:#007F00">'---------------------------------------------------------------------------------------</SPAN>
<SPAN style="color:#007F00">' Procedure : Do_Cond_Format</SPAN>
<SPAN style="color:#007F00">' DateTime : 12/23/2005 12:25</SPAN>
<SPAN style="color:#007F00">' Author : Ashutosh</SPAN>
<SPAN style="color:#007F00">' Purpose : To format all the sheets excluding sheetX</SPAN>
<SPAN style="color:#007F00">'---------------------------------------------------------------------------------------</SPAN>
<SPAN style="color:#007F00">'</SPAN>
<SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Do_Cond_Format()
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Do_Cond_Format_Error
<SPAN style="color:#00007F">Dim</SPAN> wksht <SPAN style="color:#00007F">As</SPAN> Worksheet, lastcol <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, lastrow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> wksht <SPAN style="color:#00007F">In</SPAN> Worksheets
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> wksht.Name = "sheetx" <SPAN style="color:#00007F">Then</SPAN>
lastcol = wksht.Range("IV1").End(xlToLeft).Column
lastrow = wksht.Range("A65536").End(xlUp).Row
<SPAN style="color:#00007F">With</SPAN> wksht
.Range(.Cells(2, 1), .Cells(lastrow, lastcol)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(ROW()>1,MOD(ROW(),2)=0,NOT(ISBLANK(A1)))"
Selection.FormatConditions(1).Font.ColorIndex = 15
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> wksht
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
Do_Cond_Format_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Do_Cond_Format"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>