VBA to format merged cells?

[MsDeth]

Can't figure out the correct terminology for a macro to format the interior of merged cells in a selected range...something along these lines:

With Selection
If .MergeCells = True Then

With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
.PatternColorIndex = 17
End With
End If
End With
'etc., etc.

I realize that this code won't work, but hope that it gives the gist of what I'm asking--any suggestions much appreciated!

 

[iggydarsa]

The code seems like working on my workbook... just make sure the selection contains only the merged cells, not additional cells... if it still doesnt work put a break point and make sure it is where it's breaking... as i told you it seems like working on mine.

 

[StingeyB]

It worked for me:

Sub mergecheck()
If Range("A1").MergeCells Then
MsgBox "Cell is Merged"


With Range("A1").Interior
.ColorIndex = 19
.Pattern = xlSolid
.PatternColorIndex = 17
End With
Else
MsgBox "Cell is not Merged"
End If
End Sub

 

[Scott Huish]

How about this?

Sub test2()
Dim c As Range
For Each c In Selection
    If c.MergeCells Then c.Interior.ColorIndex = 19
Next
End Sub

 

[MsDeth]

How about this?

Sub test2()
Dim c As Range
For Each c In Selection
    If c.MergeCells Then c.Interior.ColorIndex = 19
Next
End Sub

Thank you all for the quick response; Hotpepper nailed it perfectly!