Get instant live expert help on I need help with vba to string

How do I find all formulas in 32 sheets over hundreds of rows that contain a partial string such as "This Company" where the formula looks like "=if(H2 = "This Company", "Yes","No"). This is a bit more complicated, but the upshot is that I need ti use VBA to locate formulas where the partial contents match a specific string. Any suggestions?

Search thru Column H and Column I, and IF the cell CONTAINs STRING A, STRING B, OR STRING C, return VALUE 1 OR if cell CONTAINs String D, String E, OR STRING F, return VALUE 2, OR if cell CONTAINs String G, OR String H, return VALUE 3 Otherwise, return UNKNOWN.

MY QUESTION IS ABOUT: Fixing Formulas DESCRIPTION: Search thru Column H and Column I, and IF the cell CONTAINs STRING A, STRING B, OR STRING C, return VALUE 1 OR if cell CONTAINs String D, String E, OR STRING F, return VALUE 2, OR if cell CONTAINs String G, OR String H, return VALUE 3 Otherwise, return UNKNOWN.

My vba program is stopping after I give it the following command. ThisWorkbook.Sheets(s).OLEObjects.Add(Filename:=try, Link:=False, DisplayAsIcon:=False) try is set to be a string of text that link to and external pdf. It add the pdf in then the program stops.

Hi I have a piece of code that suddenly stop working: All code in the sheet...cell is not working Private Sub Receipt_Click() Dim customername As String Dim customeraddress As String Dim invoicenumber As String Dim r As Long Dim mydate As String Dim path As String Dim myfilename As String lastrow = Sheets("01").Range("B" & Rows.Count).End(xlUp).Row r = 5 For r = 5 To lastrow If Cells(r, 15).Value = "done" Then GoTo nextrow Product = Sheets("01").Range("R2").Value ...working studentname = Sheets("01").Cells(r, 2).Value...not working Cells(r, 15).Value = "done"...not working