VBA Formula function

[jeskit]

Hi

I have a loop which loops though a cell range which consists of forumlas within the cells. I am using the forumla function as below. However instead of putting the fourmla within the cell location it puts either 0 or #DIV/0 or #VALUE

NRow = 2
For Each Cell In PPFWBSht.Range("AF4:AU3000")
    If Cell.Value <> "" Then
        If Cell.Interior.Color = RGB(217, 217, 217) Or Cell.Interior.Color = RGB(255, 255, 0) Then
            PPCWBSht.Cells(NRow, 1).Value = PPFWBSht.Range(Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Cell.Column - 26, 1) & Cell.Row).Value
            PPCWBSht.Cells(NRow, 10).Value = PPFWBSht.Range(Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Cell.Column - 26, 1) & Cell.Row).Value

            PPCWBSht.Cells(NRow, 11).Value = Cell.Address
            PPCWBSht.Cells(NRow, 12).Value = Cell.Formula            PPCWBSht.Cells(NRow, 12).Select
          
            NRow = NRow + 1
                          
            Application.StatusBar = Cell.Address
            
        End If
    End If
Next Cell

Does anyone know why it is not inserting the forumla?

Thanks

Jeskit