Apply code to Workbook instead of individual sheets

[Celticfc]

Hi all,

For some reason my drowndown list arrows disappear after flashing and I found the code below on the net.

When I click a cell with a dropdownlist, this code allows the arrow to flash and comeback, without this code it flashes only to disappear.

All I need is to apply this code to the whole Workbook (I'm having to copy paste to each sheet for now).

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        
End Sub

 

[AlphaFrog]

1.) Put this in the ThisWorkbook code module. It will do the same as your code above for all sheets.

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_SheetSelectionChange([color=darkblue]ByVal[/color] Sh [color=darkblue]As[/color] [color=darkblue]Object[/color], [color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]GoTo[/color] 0
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

2.) This code (and your code above) is just a band-aid solution to another problem. The real solution is to fix the other problem. You likely have other code that is creating an error. I don't know what it is based on your description, but that other code is what should be fixed.