Sub test()
Dim sh As Shape
NumSem = DatePart("ww", Date, 2, 2)
For Each sh In ActiveSheet.Shapes
On Error Resume Next
Select Case Split(sh.Name, "ox")(1) * 1
Case 1
sh.OLEFormat.Object.Object.Value = NumSem
Case 2
sh.OLEFormat.Object.Object.Value = NumSem + 1
Case 3
sh.OLEFormat.Object.Object.Value = NumSem + 2
Case 4
sh.OLEFormat.Object.Object.Value = NumSem + 3
Case 5
sh.OLEFormat.Object.Object.Value = NumSem + 4
Case 6
sh.OLEFormat.Object.Object.Value = NumSem + 5
Case 7
sh.OLEFormat.Object.Object.Value = NumSem + 6
End Select
Next
End Sub