Can anyone help with VB please?
Hi,
I'm way out of my depth and been struggling with this day.
There's probably a million things wrong... I want to step through a
range of cells and print the font name and colour. Eventually I want
to change the colour depending on the number. I can see the cell
contents but everything else is just 'Null'.
It's these 'dot' bits that I don't follow at all. Any help
appreciated.
Thanks - Kirk
-----
Sub ReadColours()
Dim wk As Workbook
Set wk = ActiveWorkbook
Dim sht As Worksheet
Set sht = wk.Worksheets("Sheet1")
Dim c
With sht
For Each c In sht.Range("S2:CD5270")
Debug.Print c
With .Cells.Font
Debug.Print .Name
End With
With .Cells.Interior
Debug.Print .ColorIndex
End With
Next
End With
End Sub
|