Deselect a cell in a selected range using VBA

[mantis_sg]

Was hoping for something along theses lines, though the Cells.Deselct throws up a runtime error

For Each Cell In Selection
      If Cell.Font.ColorIndex = 5 Then
         Cell.Deselect
      End If
Next Cell

 

[GlennUK]

Change

Set rRange3 = Range(Cells(3, ValColLet))

to

Set rRange3 = Cells(3, Me.ValColLet.Value)

 

[mantis_sg]

I'm scrapping it completely, we're gonna change all the necissary order values to purely numbers for this spreadsheet, should make it easier to code and a lot more stable, thanks for the help anyway

 

[GlennUK]

Oh right .... ( goes off and bangs head against wall ).