I am trying to run this formula in module but unable to figure out what is missing.
The Formula is `=IF('301'!$F$10=0,"-",'301'!$F$10)`. Its concept is it will take the values to all those sheets started with number with their relevant `Range("F10")` and pasted in to `"Strength"` Sheet started from `Range("D4")` to the last row

```
Sub Strength()
    Dim i As Long
    Dim LastRow As Long

    LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 4 To LastRow
    '=IF('301'!$F$10=0,"-",'301'!$F$10)
        Range("D" & i).Formula = "=IF('" & Worksheets(i - 1).Name & "'!$F$10=0, ""-"" & , ' & Worksheets(i - 1).Name & '!$F$10)"
    Next i
    Application.ScreenUpdating = True
End Sub

```

I grateful if the problem is solved.

Thanks & Regards

Muneeb