Hi,
I am currently letting a code that I have pasted into the sheet itself
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("B1")
'recalculate all open workbooks
End If
'recalculate all open workbooks
Application.Calculate
'recalculate a specific worksheet
Worksheet(1).Calculate
' recalculate a specific range
Worksheet(1).Columns(1).Calculate
End Sub
name my sheet according to what is in B1.
The problem I have is B1 pulls from a masterfile that is in the same document.
If I change the master file B1 in the sheet does change to the new name but the sheet name doesn't change.
I have to click on the formula and press enter before it applies the changes to the sheet name.
I hope it makes sense.
Kind Regards
Stephan van Niekerk
I am currently letting a code that I have pasted into the sheet itself
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("B1")
'recalculate all open workbooks
End If
'recalculate all open workbooks
Application.Calculate
'recalculate a specific worksheet
Worksheet(1).Calculate
' recalculate a specific range
Worksheet(1).Columns(1).Calculate
End Sub
name my sheet according to what is in B1.
The problem I have is B1 pulls from a masterfile that is in the same document.
If I change the master file B1 in the sheet does change to the new name but the sheet name doesn't change.
I have to click on the formula and press enter before it applies the changes to the sheet name.
I hope it makes sense.
Kind Regards
Stephan van Niekerk