| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Select Macro
Try
If Not Intersect(Target, Range("B3:B52,j3:j52")) Is Nothing Then -- Don Guillett Microsoft MVP Excel SalesAid Software "santaviga" wrote in message ... I have the folowing macro that works on one of my excel workbooks. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ws As Worksheet If Not Intersect(Target, Range("B3:B52")) Is Nothing Then On Error Resume Next Set ws = Worksheets(Target.Row) If ws Is Nothing Then MsgBox "Sorry, but there is no worksheet named " & Target.Row Else ws.Activate End If End If End Sub This selects the sheet that corresponds to the cell. but I have cells in J3:J52 as well but cant select the sheets that correspond to those can anyone help? Regards |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to go to select sheet | Excel Discussion (Misc queries) | |||
| Select a sheet by name in a macro | Excel Programming | |||
| macro sheet select | Excel Discussion (Misc queries) | |||
| Macro, select Sheet "Number", NOT Sheet Name | Excel Worksheet Functions | |||
| Help! Macro to select all sheet from AA to ZZ | Excel Programming | |||
Threaded Mode
