Hardcode Links - edit my code please?
 

Hi everyone. I have the code below to hardcode all cells with links to an
external workbook. I tried to add an if statement to display a msgbox if
the sheet has no external links, but I don't know the correct syntax. When
I run this, I get a type mismatch error on the line If rng = Empty Then.
Can anyone fix this? Thanks!

Sub Hardcode()

Dim ws As Worksheet
On Error Resume Next
Set rng = ActiveSheet.Cells.SpecialCells(xlFormulas)
On Error GoTo 0
If rng = Empty Then
MsgBox ("No Links in Sheets")
Else
For Each cell In rng
sform = cell.Formula
If InStr(sform, "[") Then
cell.Formula = cell.Value
End If
Next
End If
End Sub

Hardcode Links - edit my code please?
 

If rng = Empty Then

should be

if rng is nothing then

--
Regards,
Tom Ogilvy


"Steph" wrote in message
...
Hi everyone. I have the code below to hardcode all cells with links to an
external workbook. I tried to add an if statement to display a msgbox if
the sheet has no external links, but I don't know the correct syntax.
When
I run this, I get a type mismatch error on the line If rng = Empty Then.
Can anyone fix this? Thanks!

Sub Hardcode()

Dim ws As Worksheet
On Error Resume Next
Set rng = ActiveSheet.Cells.SpecialCells(xlFormulas)
On Error GoTo 0
If rng = Empty Then
MsgBox ("No Links in Sheets")
Else
For Each cell In rng
sform = cell.Formula
If InStr(sform, "[") Then
cell.Formula = cell.Value
End If
Next
End If
End Sub