Sub M_snb() 
    cells(1).currentregion.columns(rows(1).find("Fill text").column)="snb" 
End Sub