For security reason our company blocked some macro phrases. I can't use it after restart the file.
are there any other ways that I can use similar phrase?
The phrases that I am using is below.
Private Sub Worksheet_Change(ByVal Target As Range) Dim T As String Dim rngArea As Range
With Target If .Address = "$C$2" Then If .Count > 1 Then Exit Sub Set rngArea = Me.Range("C5").CurrentRegion T = .Value If IsEmpty(Target) Then If Me.FilterMode = True Then Me.ShowAllData: rngArea.AutoFilter End If Else rngArea.Columns(2).AutoFilter 1, "=*" & T & "*", , , 0 End If .Select End If End With End Sub
Could you please share the core issue,, that what problem did you find with this VBA code,, any error,, and if your company admin has blocked the code then possibly protected by PW,, and admin could help only !!