Search Range For Part Strings

I am using the following code to search a database of information and then display it on a different sheet.

The user types the search term into a textbox and then presses a command button to search the database.

Currently it only searches for an exact match. How can i adapt it so it searches for similar strings?


Sub SearchDatabase()

Dim rRange As Range
Dim rCell As Range
Dim ResultsOffset As Integer
Dim ResultsRange As Range

On Error Resume Next