Filter sub
I am using this code to automatically filter for the information they are
after when they go in to my risk register and it works. Problem is it may be
a secondary person who is updating the register and I need to make it filter
the column next to it as well. Is there an easy way to do this?
Sub FilterRiskOwner()
strRiskOwner = InputBox("Please enter your full name")
If strRiskOwner = "" Then
Exit Sub
End If
Sheets("Risk By Function").Select
Range("A1").AutoFilter Field:=3, Criteria1:=strRiskOwner
End Sub
|