find

Dim Hcount As Integer
Dim Mcount As Integer
Dim Lcount As Integer
Dim keywords As String
Dim sheeetcount As Integer


Dim AutomatedCircsColumn As Integer




Function ReturnKeywordsColumn(keywords As String, sheetcount As Integer) As Integer




'Dim AutomatedCircs As Integer
'AutomatedCircs = 0


'With Sheets(sheetcount).Range("a1:G500")
'    Set c = .find(keywords)
'
'    If Not c Is Nothing Then
'        firstAddress = c.Address
'        Do
'            'AutomatedCircs = AutomatedCircs + 1
'            Set c = .FindNext(c)
'        Loop While Not c Is Nothing And c.Address <> firstAddress
'    End If
'End With


With Sheets(sheetcount).Range("a1:aa5")
    Set c = .find("ÖØÒª¼¶±ð", LookIn:=xlValues)
    If Not c Is Nothing Then
        'ReturnKeywordsColumn = c.Address.Column
        'MsgBox c.Address.Column
        MsgBox c.Column
    End If
    
End With






End Function






Sub HMLSata()


      'MsgBox ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)
      
a = ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)


End Sub