Thread
:
Private Sub Workbook
View Single Post
#
2
Posted to microsoft.public.excel.programming
Don Guillett[_2_]
external usenet poster
Posts: 1,522
Private Sub Workbook
Place in the ThisWorkbook module. Either of the below should work
Private Sub Workbook_SheetChange _
(ByVal Sh As Object, ByVal Target As Range)
If Target.Address < Range("a1").Address Or _
Target = "" Then Exit Sub
Sh.Name = Target
'With Sh.Range("A1")
' If .Value < "" Then Sh.Name = .Value
'End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"terilad" wrote in message
...
Hi,
I was wondering how I can place the following macro into the workbook
rather
than having to inpu this code into over 100 individual sheets, the code
changes the sheet tab name to that of cell A1 per every sheet, these are
changed from the first sheet called Index of Stock, so when the name is
changed in the index of stock it changes instantly on the individual sheet
and the sheet tab. Here's the code.
Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub
Many thanks
Mark
Reply With Quote
Don Guillett[_2_]
View Public Profile
Find all posts by Don Guillett[_2_]