Trying to notate ranges of merged cells on a worksheet

[mcomp72]

I'm trying to get a listing of all of the cells that are merged on a worksheet. I want them listed in Column D of 'Sheet1', but I can't get the code quite right. Here's what I have so far:

Dim c As Range

ThisWorkbook.Sheets("Sheet1").Activate
ThisWorkbook.Sheets("Sheet1").Range("D1").Select

For Each c In ThisWorkbook.Sheets("MySheet").UsedRange

    If c.MergeCells Then
        
        ActiveCell.Value = c.Address
        
        ActiveCell.Offset(1, 0).Select
        
    End If
    
Next

Let's assume the first merged cell on "MySheet" is A1:F1.

What it's doing now is writing "$A$1", then going to the next cell down and writing "$B$1", then down one more and writing "$C$1", and so on.

What I need it to do is write the range that is merged, such as "$A$1:$F$1". I can't figure out how to get it to do it that way. Any ideas?

 

[mcomp72]

I finally figured it out. Here's the code, in case it's helpful to anyone else.

Dim c As Range
Dim RngString As String
Dim CellString As String
Dim i As Integer

i = 2

ThisWorkbook.Sheets("MySheet").Activate
    
For Each c In ThisWorkbook.Sheets("MySheet").UsedRange

    If c.MergeCells Then
    
        CellString = c.Address
        
        ThisWorkbook.Sheets("MySheet").Range(CellString).Activate
        
        RngString = Selection.Address
        
        If RngString <> ThisWorkbook.Sheets("Sheet1").Range("D" & i - 1).Value Then
            ThisWorkbook.Sheets("Sheet1").Range("D" & i).Value = RngString
            i = i + 1
        End If
        
    End If
    
Next