Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
changing tab from another sheet cell
i have tried this but i need the cell to come from sheet 1 not sheet 2
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const sNAMECELL As String = "A1" Const sERROR As String = "Invalid worksheet name in cell " Dim sSheetName As String With Target If Not Intersect(.Cells, Range(sNAMECELL)) Is Nothing Then sSheetName = Range(sNAMECELL).Value If Not sSheetName = "" Then On Error Resume Next Me.Name = sSheetName On Error GoTo 0 If Not sSheetName = Me.Name Then _ MsgBox sERROR & sNAMECELL End If End If End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing sheet reference to cell reference | Excel Worksheet Functions | |||
changing a cell to changing the link | Excel Worksheet Functions | |||
Changing Sheet Colour/Color | Excel Discussion (Misc queries) | |||
Protect from changing sheet name | Excel Discussion (Misc queries) | |||
what is the formula for changing the same cell on different sheet. | Excel Worksheet Functions |