Change Links to avoid 0 Values showing

Hi, I have a ton of links to other worksheets that since no information is in the orginal cell the results come up as a zero value on the new sheet.

I really cant hide all the zeros in the options as some zero values I need to show but they are a much smaller number so it would be easier just to change all the current links.

What kind of script could I use to edit the current link to include the current link and add a if then statement to the formula.
Here is an example:
From:

='1st Shift'!C15

To:

=If('1st Shift'!C15 ="","",'1st Shift'!C15)

Thank You, Mike

Here what I came up with should anyone need it.

Sub Zero()
Dim myStr As String
Dim Cel As Range
For Each Cel In Selection
If Cel.HasFormula = True Then
If Not Cel.Formula Like "=IF(ISERROR*" Then
myStr = Right(Cel.Formula, Len(Cel.Formula) - 1)
Cel.Value = "=If(" & myStr & "="""",""""," & myStr & ")"
End If
End If
Next
End Sub

And this one below with hide div/0 errors

Sub DIV0() 
Dim myStr As String
Dim Cel As Range
For Each Cel In Selection
If Cel.HasFormula = True Then
If Not Cel.Formula Like "=IF(ISERROR*" Then
myStr = Right(Cel.Formula, Len(Cel.Formula) - 1)
Cel.Value = "=IF(ISERROR(" & myStr & "),""""," & myStr & ")"
End If
End If
Next
End Sub

...

I'd prefer

Sub snb()
  For Each sh In Sheets
    For Each cl In sh.Cells.SpecialCells(xlCellTypeFormulas)
      If Evaluate("isref(" & Mid(cl.Formula, 2) & ")") Then cl.Formula = Replace(Replace("=IF(#=~~,~~,#)", "~", Chr(34)), "#", Mid(cl.Formula, 2))
    Next
  Next
End Sub

I have to agree with you on that... Nice Work...

.