i am using "InStr(1, ActiveCell.Text, search)" code. how do i make the code so it is not case sensitive.

example
ActiveCell.Text = "The Malt Shoppe"
search = "malt"