font and background color

[prw79]

The following code will takeover the font colors of the names from the original list into my dropdownlist. 2 questions: how can i also do this with the background (fill) color? 2nd question: When i delete a name from the dropdown list an error occurs: 'Run-time error 91: Object variable or With block variable not set'
code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B32")) Is Nothing Then Exit Sub
With Target.Font
.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Color
.Bold = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Bold
End With
End Sub

Hope someone can help? thanks

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Value = "" Then Exit Sub
   If Not Intersect(Target, Range("B2:B32")) Is Nothing Then
      With Target
         .Interior.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Interior.Color
         .Font.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Color
         .Font.Bold = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Bold
      End With
   End If
End Sub

 

[prw79]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Value = "" Then Exit Sub
   If Not Intersect(Target, Range("B2:B32")) Is Nothing Then
      With Target
         .Interior.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Interior.Color
         .Font.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Color
         .Font.Bold = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Bold
      End With
   End If
End Sub

That is amazing! thanks a bunch

 

[Fluff]

You're welcome & thanks for the feedback.

 

[prw79]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Value = "" Then Exit Sub
   If Not Intersect(Target, Range("B2:B32")) Is Nothing Then
      With Target
         .Interior.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Interior.Color
         .Font.Color = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Color
         .Font.Bold = Sheets("Maandoverzicht").Range("B8:B31").Find(Target).Font.Bold
      End With
   End If
End Sub

for a follow up question: How can i add more sheets and ranges within the same code? hope you can help.

 

[Joe4]

for a follow up question: How can i add more sheets and ranges within the same code? hope you can help.

You already posted that question to a new thread here: target as range

Per forum rules, please do NOT duplicate the same question in multiple threads. Such posts will typically be locked or deleted.