Help Amending a bit of VBA code

**cldcp00** · 02-26-2013, 02:56 PM

Hi There,

Could somebody assit me in amending the code below. Currently the code inserts a blank row then inserts the appropriate title text.

I would now like to make the inserted text bold and merge cells A - I in the inserted row. I just cannot get it to work

Thanks for any help

Sub InsertRows()
  Dim r As Long, mcol As String, i As Long


' find last used cell in Column E
  r = Cells(Rows.Count, "E").End(xlUp).row


 ' get value of  last used cell in column A
  mcol = Cells(r, 5).Value


 ' insert rows by looping from bottom
  For i = r To 1 Step -1
     If Cells(i, 5).Value <> mcol Then
        Rows(i + 1).Insert
        Cells(i + 1, 5).Value = PeriodTitle(mcol, i + 1)
        mcol = Cells(i, 5).Value
     End If
  Next i
End Sub
Function PeriodTitle(ByRef period As String, row As Long) As String
Select Case Left(period, 2)
    Case Is = "Q1"
        PeriodTitle = "January - March " & Right(period, 4)
    Case Is = "Q2"
        PeriodTitle = "April - June " & Right(period, 4)
    Case Is = "Q3"
        PeriodTitle = "July - September " & Right(period, 4)
    Case Is = "Q4"
        CPeriodTitle = "October - December " & Right(period, 4)
    Case Else
        PeriodTitle = "Invalid Quarter in Row " & row + 1
End Select
End Function

**protonLeah** · 02-26-2013, 03:46 PM

To Attach a Workbook:
1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit