Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = Sheets("variables").Range("b1") Then
For Each Sh In Sheets
If IsNumeric(Right(Sh.Name, 2)) Then Sh.Name = Left(Sh.Name, Len(Sh.Name) - 2) & Target Mod 100
Next Sh
End If
End Sub