Hi.
I am banging my head against a brick wall with this problem :banghead: so any help will be appreciated.
I have this code:
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
For DiagramRow = 1 To LastRow
Select Case .Cells(DiagramRow, 4).Value
Case...