Select a range of cells with the cursor then have those cells merge

[Edward Sky]

I'm looking for a vba solution. The reason I need to merge cells is to give me a final picture of what an end product would look like without manually selecting a range, pressing merge and center and then selecting another range etc... Is this possible?

Thank you.

 

[ParamRay]

This was exactly what I was looking for.

One last thing, Is there a way for this to be restricted to a specific range of cells say from J15:N20?
That would be the incredible.
Thank you!!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Me.Range("J15:N20")).Address = Target.Address Then
    Target.Merge
  End If
End Sub

 

[ParamRay]

Mistake. Should be this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("J15:N20")) Is Nothing Then
    If Intersect(Target, Me.Range("J15:N20")).Address = Target.Address Then
      Target.Merge
    End If
  End If
End Sub

 

[Edward Sky]

How do you get an accurate measurement using merged cells

Ooh we can't. The use of merged cells is a visual aid to help me build this template from scratch. How do I send a picture? I think it would be easier if I do so lol

 

[Edward Sky]

Mistake. Should be this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("J15:N20")) Is Nothing Then
    If Intersect(Target, Me.Range("J15:N20")).Address = Target.Address Then
      Target.Merge
    End If
  End If
End Sub

You are the man. Thank you!