good afternoon,

I have the following code to update worksheet name based on cell "PURCH_TERMS"(=B3) which works perfectly i.e if B3 is empty then worksheet keeps original name, as soon as cell B3 is updated, worksheet is automatically renamed.

However if the user goes back to B3 and modify the data, I got an error message.......would it be possible to automatically update the worksheet name each time the data in B3 change (for info data in B is text and is manually entered or picked from a list)

Sub PURCH_NAME_WORKSHEET()
'
' NAME_PURCH_WORKSHEET Macro
'

'
     Sheets("PURCH CIF OR CFR OR DES OR DAP").Name = "PURCH" & Space(1) & Sheets("PURCH CIF OR CFR OR DES OR DAP").Range("SELLER").Value & Space(1) & Sheets("PURCH CIF OR CFR OR DES OR DAP").Range("PURCH_TERMS").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Me.Range("PURCH_TERMS")) Is Nothing Then Exit Sub
        Call PURCH_NAME_WORKSHEET     
    

End Sub
thank you in advance