【Excel】A列から検索したい文字列の行を返すExcelVBA

Function RetLC(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する）
'"*"の位置を変えれば後ろからrev、途中Midの検索も可能
    Dim i As Integer,CC As Integer
    Sheets(sh).Select
    CC = 1	'１：Ａ列　２：Ｂ列・・・
    RetLC = 0
    For i = 1 To 1000
        If Cells(i, CC) Like r & "*" Then
            RetLC = i
            Exit For
        End If
    Next i
End Function

Function RetLCRev(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する）
'
    Dim i As Integer,CC As Integer
    Sheets(sh).Select
    CC = 1	'１：Ａ列　２：Ｂ列・・・
    RetLCRev = 0
    For i = 1 To 1000
        If Cells(i, CC) Like "*" & r Then
            RetLCRev = i
            Exit For
        End If
    Next i
End Function

Function RetLCMid(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する）
'
    Dim i As Integer,CC As Integer
    Sheets(sh).Select
    CC = 1	'１：Ａ列　２：Ｂ列・・・
    RetLCMid = 0
    For i = 1 To 1000
        If Cells(i, CC) Like "*" & r & "*" Then
            RetLCMid = i
            Exit For
        End If
    Next i
End Function

Sub test_RetLCMid()
    MsgBox RetLCMid("からが", "Sheet1")
End Sub