اخى الفاضل ابو عمر لم يفعل رجاء توضيخ
ub azzamdelletex()
Dim myrng As Range, myc As Range
Set myrng = Range("page1,page2,page3,page4,page5,page6,page7,page8,page9,page10,page11,page12,page13")
For Each myc In myrng
If myc = "x" Then
myc = ""
End If
Next myc
Set myrng = Nothing
End Sub