How to stop code from debugging/keep notifying me that only the top left value will remain?

[Snaybot]

Sub MI_Merge_FV()
Dim i&, k&: k = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    If Left(Cells(i, 2), 1) = "T" Then
        Cells(k, 1).Resize(i - k).Merge
        k = i + 1
    End If
Next i
End Sub

How Do I stop the code from telling me that only the top left value will remain and go in to debug mode when there is nothing to merge?

Crosspost
http://www.msofficeforums.com/excel...de-debugging-keep-notifying-me.html#post91290
http://www.excelforum.com/excel-pro...y-the-top-left-value-will-be.html#post4238629

 

[JLGWhiz]

You can try this:

Sub MI_Merge_FV()
Dim i&, k&: k = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    If Left(Cells(i, 2), 1) = "T" Then
	Application.DisplayAlerts = False
	On Error Resume Next
        Cells(k, 1).Resize(i - k).Merge
	On Error GOTO 0
	Application.DisplayAlerts = True
        k = i + 1
    End If
Next i
End Sub

 

[Snaybot]

Bingo!

Thanks JLGwiz

 

[JLGWhiz]

Bingo!

Thanks JLGwiz

You're Welcome, and appreciate the cross post notification.
Regards, JLG

 

[Snaybot]

No Problem!

Thanks for the help JLG