Automatically run a macro when a cell is changed in a worksheet

[shina67]

Hi All,

I hope someone can help.
I have a workbook with 12 worksheets in it.
I have a worksheet called 'Master LOG-Owner Geoff Clarkson'.
When a cell in column F is changed on this worksheet I need a macro to automatically run.
Thanks in advance.

 

[alansidman]

You would use the Worksheet_Change event. Set the target column = to 6

 

[shina67]

You would use the Worksheet_Change event. Set the target column = to 6

Thanks Alan for your reply.

If I use the following code would it work?

Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 
If Target.Address = 6 Then
'
' Macro1 Macro
' unfilter
'


'
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Customer Serv-Owner Gary Mardy").Select
    ActiveSheet.Range("$A$1:$X$1624").AutoFilter Field:=6
    Sheets("Production-Owner Chris Smith").Select
    ActiveSheet.Range("$A$1:$X$1624").AutoFilter Field:=6
     Sheets("Purchasing-Owner Clive Stones").Select
    ActiveSheet.Range("$A$1:$X$1624").AutoFilter Field:=6
    Sheets("Survey-Owner Lee Ashton").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("Install-Owner Phil Clarkson").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("Order Process-Owner Chris Jupp").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("After Sales-Owner Matt Hodgson").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("Sales-Owner Jonny Watkins").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("Trade-Owner Joe Bratt").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    Sheets("Despatch-Owner Tom McClymont").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Customer Serv-Owner Gary Mardy").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:= _
        "=customer", Operator:=xlAnd
    Sheets("Production-Owner Chris Smith").Select
    ActiveSheet.Range("$A$1:$X$1624").AutoFilter Field:=6, Criteria1:= _
        "=production", Operator:=xlAnd
    Sheets("Survey-Owner Lee Ashton").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:="=survey" _
        , Operator:=xlAnd
    Sheets("Install-Owner Phil Clarkson").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:= _
        "=installation", Operator:=xlAnd
    Sheets("Order Process-Owner Chris Jupp").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:= _
        "=order processing", Operator:=xlAnd
    Sheets("After Sales-Owner Matt Hodgson").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:= _
        "=after sales", Operator:=xlAnd
    Sheets("Sales-Owner Jonny Watkins").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:="=sales" _
        , Operator:=xlAnd
    Sheets("Trade-Owner Joe Bratt").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:="=trade" _
        , Operator:=xlAnd
         Sheets("Purchasing-Owner Clive Stones").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:="=Purchasing/Stock" _
        , Operator:=xlAnd
    Sheets("Despatch-Owner Tom McClymont").Select
    ActiveSheet.Range("$A$1:$L$1624").AutoFilter Field:=6, Criteria1:= _
        "=despatch", Operator:=xlAnd
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Master LOG").Select

End If
 
 
 
End Sub