That worked really well but I wasn't clear enough. For the rows that aren't
of type defect, I would like to have a variable row height that adjusts to
fit the data in the cell. Does this make it a lot more complicated? Thanks
again for the help

"Toppers" wrote:

Hi,
Something like this .....

Sub SetRowHeight()

' Assume data is in column B (change to your requirement)

Set rng = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)

For Each Cell In rng
If Cell.Value = "Defect" Then
Cell.RowHeight = 20
Else
Cell.RowHeight = 40
End If
Next
End Sub


HTH

"CDAK" wrote:

From looking around it appears as though row height cannot be conditionally
formatted without some VB script. Here is my dilemma and I was hoping that
someone could give me an example of some code if it isn't too complicated or
time consuming.

I am importing data from a SQL query with 7 columns and a variable number of
rows. One of the columns is "Type". There are 3 possible types: Requirement,
Enhancement and Defect. With the first two types, I would like the row height
to be large so that I can see all the information in the cells for a given
row (i.e., I don't want anything truncated). However to cut down on the size
of the spreadsheet, I would like to adjust every row that is under type
"defect" to be smaller (say row height = 30).

Thanks for any assistance
Chris