السيد عبد العال

السلام عليكم ورحمة الله وبركاته
أرجو أت يكون هذا هو الماكرو المطلوب

Sub FindAndSet() Dim strFind As String, strSet As String Dim shSheet As Worksheet strFind = "Carried" strSet = "L.E" For Each shSheet In ThisWorkbook.Worksheets   For Each cCell In shSheet.Range("A:A")     If cCell.Value = strFind Then        cCell.Offset(0, 3).Value = strSet     End If    Next cCell Next shSheet End Sub