I know I am getting thicker here but,

I am looking for a macro that will check bolumn B and if it starts with apostrophe zero then do nothing, if it doesn't start with a apostophe zero then add it.

Should be straighforward, I have put
Sub Add_An_Apostrophe()
    ' Add_An_Apostophe Macro
    ' Macro recorded 03/10/2008 by Gerry McNally
    If (Range("B1").Value = "0") Then
        For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
            Cells(i, "B").Value = "'" & Cells(i, "B").Text
        Next i
    Else
        For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
            Cells(i, "B").Value = "'0" & Cells(i, "B").Text
        Next i
    End If
End Sub
But that adds a zero even if there is one there!!