VBA Insert Column And Add Header On Multiple Sheets

[hobbiton73]

Hi I wonder whether someone may be able to help me please.

I'm trying to put together a short script which on selected sheets only, inserts a column and adds a column header to this.

This is what I've put together so far:

Sub InsertFTE()
    
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        Select Case (ws.Name)
        Case "Launch Sheet", "Email Recipients", "All Data", "All Resources", "Resources List", "Portfolio List", "IDEAS Actuals", "IDEAS Forecast", "Unique Records WA", "Unique Records SR"
        Case Else
            ws.Columns("C:C").EntireColumn.Offset(0, 1).Insert
            ws.Cells.Range("D7").Select
            ActiveCell.FormulaR1C1 = "Staff FTE"
        End Select
        Next ws
    End Sub

The problem I have is that when I run this, I receive the following error: "Select method of range class failed" and debug highlights this line as the issue: ws.Cells.Range("D7").Select.

I just wondered whether someone may be able to look at this and let me know where I've gone wrong.

Many thanks and kind regards

Chris