Sub test()
Dim x
For Each x In ThisWorkbook.Worksheets
If LCase(Right(x.Name, 1)) = "b" Then
x.Tab.Color = RGB(255, 0, 0)
x.Range("d9:d11") = ThisWorkbook.Worksheets(Left(x.Name, Len(x.Name) - 1) & "a").Range("d9:d11").Value
ElseIf LCase(Right(x.Name, 1)) = "a" Then
x.Tab.Color = RGB(0, 255, 0)
End If
Next x
End Sub