Hi Glimmer,

anyways stepping into the code now getting a "type mismatch" (error 13)
error on:

Are you surethat the error is not in fact occurring on the preceding line?

If this is the case, it would suggest that the entries in row 5 are not
recognised as dates. So if the entries in row 5 are text value like "Jun" or
"June", then change the line:

If Month(rCell.Value) = 6 Then

to:

If UCase(Left(rCell.Value, 3)) = "JUN" Then

If this does not resolve your problem. post back giving an example of the
row 5 header text.


---
Regards,
Norman



wrote in message
oups.com...
ah yes - i messed up there hehe fixed that now though... was using the
macro sheet name rather than actual sheet name (been long day)

anyways stepping into the code now getting a "type mismatch" (error 13)
error on:

With rCell.Resize(sh.UsedRange.Rows.Count).Font

could this be because the data is not continous down the column?