выделить диапазон цветом по найденному слову

[DAN1L]

Здравствуйте, как выделить цветом только заданный диапазон из найденной по слову строки. Вот код он выделяет только одну ячейку:

Private Sub CommandButton1_Click()

   Dim strFindData As String
   Dim rgFound As Range
   Dim i As Integer

   
   strFindData = InputBox("Введите данные для поиска")
   With Worksheets("Лист1").Cells
        Set rgFound = .Find(strFindData, LookIn:=xlValues)
         If Not rgFound Is Nothing Then
           Sheets("Лист1").Select
            rgFound.Interior.ColorIndex = 7
            Exit Sub
         End If
      End With
   
   
   MsgBox ("Поиск не дал результатов")
End Sub

Работа кода:
[IMG][/IMG]

Вот как нужно сделать:
[IMG][/IMG]

[ikki_pf]

rgFound.resize(,10).Interior.ColorIndex = 7

[DAN1L]

Сообщение от ikki_pf

rgFound.resize(,10).Interior.ColorIndex = 7

Спасибо! Все работает!