Macro to query with a txt file and make all words bold

Sub Macro1()
Dim FF As Integer, str1 As String
FF = FreeFile
Open "C:\mytext,txt" For Input As #FF
While EOF(FF)
    Line Input #FF, str1
    For i = 1 To Sheet1.UsedRange.Rows.Count
        For j = 1 To Sheet1.UsedRange.Columns.Count
           If Sheet1.Cells(i, j) = str1 Then
                Sheet1.Cells(i, j).Font.Bold = True
                Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
   
   
    Next
Wend
Close FF
End Sub

Macro with no errors and no results too.

>Open "C:\mytext.txt" For Input As #FF

In this line you have to put your text file path

Put input as "#name"

Am i correct
every line shoiuld have #

I did not understand you, can you paste the macro u r using and the path where your text file is?

This is the macro.

Sub Macro1()
Dim FF As Integer, str1 As String
FF = FreeFile
Open "C:\mytext.txt" For Input As #FF
While EOF(FF)
    Line Input #FF, str1
    For i = 1 To Sheet1.UsedRange.Rows.Count
        For j = 1 To Sheet1.UsedRange.Columns.Count
           If Sheet1.Cells(i, j) = str1 Then
                Sheet1.Cells(i, j).Font.Bold = True
                Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
   
   
    Next
Wend
Close FF
End Sub

I have the txt file in C:\filename.txt
in the txt filei have

Sharath
Reddy
ramesh

And have Sharath
Reddy in the excel sheet 1.

In that case change your macro to

Sub Macro1()
Dim FF As Integer, str1 As String
FF = FreeFile
Open "C:\filename.txt" For Input As #FF
While Not EOF(FF)
    Line Input #FF, str1
    For i = 1 To Sheet1.UsedRange.Rows.Count
        For j = 1 To Sheet1.UsedRange.Columns.Count
           If Sheet1.Cells(i, j) = str1 Then
                Sheet1.Cells(i, j).Font.Bold = True
                Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
   
   
    Next
Wend
Close FF
End Sub

Is it working fine now?

I just checked.This is searching case sencitive.

I want the script to search even though the case is diffe.

Ex:
Sharath
sharath
SHARATH
SHarath
any thing it has to search

Will it search even though it is in any colum or row?

Then use the UCase function as shown
Sub Macro1()
Dim FF As Integer, str1 As String
FF = FreeFile
Open "C:\filename.txt" For Input As #FF
While Not EOF(FF)
    Line Input #FF, str1
    For i = 1 To Sheet1.UsedRange.Rows.Count
        For j = 1 To Sheet1.UsedRange.Columns.Count
           If UCase(Sheet1.Cells(i, j)) = UCase(str1) Then
                Sheet1.Cells(i, j).Font.Bold = True
                Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
   
    Next
Wend
Close FF
End Sub

I get this error.

Run-time error '13':
Type mismatch

If the names in the file is sharathreddy or Sharath reddy
and in the excel i just have it as sharath will it search the text?

The previous macro worked fine in my excel sheet
This is the macro which will search the text even if Sharath is in the excel file, and sharathreddy is in the text file
Sub Macro1()
Dim FF As Integer, str1 As String
FF = FreeFile
Open "C:\filename.txt" For Input As #FF
While Not EOF(FF)
    Line Input #FF, str1
    For i = 1 To Sheet1.UsedRange.Rows.Count
        For j = 1 To Sheet1.UsedRange.Columns.Count
           If InStr(1, UCase(str1), UCase(Sheet1.Cells(i, j)), vbTextCompare) > 0 Then
                Sheet1.Cells(i, j).Font.Bold = True
                Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
   
    Next
Wend
Close FF
End Sub

Can you send me a sample file
As the sheet name in my file is Rack servers
I changed the macro too. But get a compiling error

Where should i run this

sample file io will not be able to upload from my office but this macro can be placed in the ThisWorkBook module which you can get after Pressing Alt+F11 in the workbook to open the macro editor and then run this macro.

The sheet name is rack servers.
When i run i get no error or output.

I have the name Sharath in the txt file and even in the excel but no results

can you upload your file?

Download from
http://www.filepatio.com/3084

buddy i dont have excel 2007 :(, only excel 2003. Cant open the file.

try this.

http://www.filepatio.com/3088 

And sharath please put such questions in MS Excel Zone only

Ok sure hitesh

I get this error.
---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '424':

Object required
---------------------------
OK   Help  
---------------------------

I just put name sharath in the excel sheet and ran the macro i got the error.

i put the name sharath in the sheet and did not get any error, in which cell did you put it?

do you know how to debug a macro?

In colum 3 "C"
No i dont know to debug :<

Should change the sheet name.Or the sheet name in the macro?

Yes try changing the sheetname and see the result