VBA for sheet formatting

[bosko2]

Hi all,

I have some code that copies filtered data from a hidden sheet to a visible sheet, I'm having trouble with formatting the newly created table/sheet.

I'm not sure if I need to paste in the entire code, I'll start with the part where I'm having trouble, specifically row 1; I would like the text to be bold (at the moment all text on the sheet is bold), and to have a filter applied to row 1:

Dim DbExtract, DuplicateRecords As Worksheet
    Set DbExtract = ThisWorkbook.Sheets("Investigations")
    Set DuplicateRecords = ThisWorkbook.Sheets("My team's investigations")

    Sheets("Safety Accountability Dashboard").Select
    Sheets("Investigations").Visible = True
    Sheets("Investigations").Select
    Sheets("My team's investigations").Visible = True

    DbExtract.Range("A1:BF9999").SpecialCells(xlCellTypeVisible).Copy
    DuplicateRecords.Cells(1, 1).PasteSpecial
  
    Sheets("Investigations").Select
    ActiveWindow.SelectedSheets.Visible = False
    Selection.AutoFilter
    Selection.WrapText = True
    Selection.Font.Bold = True
    Selection.HorizontalAlignment = xlLeft
    Selection.VerticalAlignment = xlVAlignTop

I think there needs to be something between the blue text and the yellow text, because I'm wanting to format the new sheet "My team's investigations", not the reference sheet "Investigations".

Thank you in advance.

Cheers,
Mike

 

[bosko2]

I'm not sure how bump up this post, I'm sure it's an easy for the pros out there/