VBA Worksheet_Change

[GRowe]

Hi All,
Im new to excel...
I have a question, I currently putting together an inventory spread sheet but having trouble using 2x Worksheet_Change actions and from reading about on other related issues it seems you cant run 2 in the same place.
This is what I'm trying to achieve,
Changing the name of the worksheet based on a cell reference and then change the colour of the tab, based on a result once the order has been fully received. below is a example of what I've got already, Independently they both work,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j7")) Is Nothing Then
If Range("j7") = Empty Then
ActiveSheet.Name = "Client Unspecified-" & ActiveSheet.Index
Else
ActiveSheet.Name = Range("j7")
End If
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$Q$15" Then
Select Case Target.Value
Case "No"
Me.Tab.Color = vbRed
Case "Yes"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub


Can anyone help??
Thank you in advance

 

[footoo]

Just put your 2 codes in one Worksheet__Change.

 

[GRowe]

I'm probably doing something else wrong,
I'm getting an error Saying Compile Error ,Only comment after end sub, End function, or end properly.
with Target, highlighted in the string "If Not Intersect(Target,"
could you give me an example on how the code should look..
Thanks

 

[GRowe]

i think i my have sorted it i had the colour tab code first so i swapped it round...