December 2009
2 posts
Public Sub findLink()
Dim ws As Worksheet
Dim rng As Range
For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
If InStr(rng.Formula, “”) > 0 Then
Debug.Print (ws.Name & ” - ” & rng.Formula)
End If
Next rng
Next ws
End Sub
Public Sub ok()
ThisWorkbook.Names(“inputs”).Delete
End Sub
Public Sub ok2()
‘ThisWorkbook.Names(“inputs”).Delete
Dim rng As Range
Set rng = ThisWorkbook.Worksheets(“Sheet1”).Range(“D10”)
‘Dim rng2 As Range
‘Set rng2 = ThisWorkbook.Worksheets(“Sheet1”).Range(“E77”)
Dim x As Integer
Dim y As Integer
...