Reduce font size in last row of rolling data

[Radoman]

Hi

I wonder if this is possible please as it's beyond my capabilities!

I have 32 rows of data in text format which 'revolve' on open i.e.

the row previously shown in row 1 will appear in row 32
the row previously shown in row 2 will appear in row 1
the row previously shown in row 3 will appear in row 2
and so on, with all data moving up a row

What I am trying to do is automatically reduce the font size of data shown in row 32 to size 7 on open. Data shown in all other rows must be unaffected.

Hope you can help.

Thank you!

 

[JoeMo]

Copy and paste the code below into a Thisworkbook module. then save the workbook.:

Private Sub Workbook_Open()
With Rows(32)
    .Font.Size = 7
End With
End Sub

 

[Radoman]

Hi Jo - my apologies, I forgot a small bit of info.

There are 2 worksheets in the workbook - it's row 32 of the worksheet named 'Jones' that this needs to apply to.

Thanks again.

 

[JoeMo]

Hi Jo - my apologies, I forgot a small bit of info.

There are 2 worksheets in the workbook - it's row 32 of the worksheet named 'Jones' that this needs to apply to.

Thanks again.

OK, so go with this instead,

Private Sub Workbook_Open()
With Sheets("Jones").Rows(32)
    .Font.Size = 7
End With
End Sub

 

[Radoman]

Sorted! Many thanks for your time, Joe!