Private [COLOR=#00008B][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Worksheet_SelectionChange[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]ByVal[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Target [/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Excel[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Range[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]
[/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]
If[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Target[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Count[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]=[/FONT][/COLOR][COLOR=#800000][FONT=Consolas]1 [/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]And[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Not (Intersect(Target, Range("B3:N33")) Is Nothing) [/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]Then
[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Target[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Value[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]=[/FONT][/COLOR][COLOR=#800000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]
[/FONT][/COLOR][COLOR=#00008B][FONT=Consolas] End[/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]If
[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]
[/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]End [/FONT][/COLOR][COLOR=#00008B][FONT=Consolas]Sub[/FONT][/COLOR]
I don't. Also, it is best to post entirely new questions in a new thread.Do you know of a way of converting excel files to work as part of a website or an app on a tablet device??