Write To Side Cell Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub SearchText() Dim SearchString, SearchChar, MyPos SearchChar = "salut" For Each cell In Range("A1:A11") SearchString = cell.Text MyPos = InStr(SearchString, SearchChar) If MyPos > 0 Then MsgBox ("Mot trouvé") MsgBox "Mot trouvé à cette adresse: " & cell.Address cell(1, 2).Value = "(salut) est sur cette ligne" End If Next End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 write to side cell 2 Extracting values from cells 3 a1 to each data entry b1c1 respectively, always writes to the side column 4 excel operators hk 5 Modify formulas inside cells using macros 6 Write to the bottom cell if the number of letters is more than 100 1 7 if the number of letters is more than 100 write to the bottom cell 2 8 codes that write text in active cells as comments 9 Write to cell e10 to scroll right to left 10 select red number and write to g12 11 Write folder path to cell b1 list xls files 12 write to the cell delete the range of data to be deleted (deletes from sheet / page1 and sheet / page2 on sheet / page1 to a2b2) 13 collect columns a b write cye 14 Write numbers to a1: a5 and warns c1 if their total is 100 15 Adding formulas to different cells 16 Write numbers to a1: a5 and give warnings to c1 if their sum is not 100 17 write the same cell in all cells on the active sheet / page 18 write the number you want to be colored on the sheet / page in msgbox 19 Export selected cells to text file 20 write the days of this month to the right write the day to the child cell and color the weekends