How do I do this?

Think this might work

Sub DelAllHyperlinks()

Dim WS_Count As Integer
Dim I As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To WS_Count

Sheets(I).Hyperlinks.Delete
Next I

End Sub

VBA Nob
SouthAfricanStan wrote:
> How do I do this?

Sub Delete_Hyperlinks()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).UsedRange.Cells.Hyperlinks.Delete
Next n
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 10 Nov 2006 09:14:29 +0200, "SouthAfricanStan" <me@there> wrote:

>How do I do this?
>

Thanks so far.
I'm a newby as far as this part of excel is concerned.
Please advise me (key by key) how to do this, or perhaps there are relevant
tutorials available on the internet?

"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:(E-Mail Removed)...
> Sub Delete_Hyperlinks()
> Application.ScreenUpdating = False
> Dim n As Single
> For n = 1 To Sheets.Count
> Sheets(n).UsedRange.Cells.Hyperlinks.Delete
> Next n
> Application.ScreenUpdating = True
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Fri, 10 Nov 2006 09:14:29 +0200, "SouthAfricanStan" <me@there> wrote:
>
>>How do I do this?
>>
>

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

SouthAfricanStan wrote:
>
> Thanks so far.
> I'm a newby as far as this part of excel is concerned.
> Please advise me (key by key) how to do this, or perhaps there are relevant
> tutorials available on the internet?
>
> "Gord Dibben" <gorddibbATshawDOTca> wrote in message
> news:(E-Mail Removed)...
> > Sub Delete_Hyperlinks()
> > Application.ScreenUpdating = False
> > Dim n As Single
> > For n = 1 To Sheets.Count
> > Sheets(n).UsedRange.Cells.Hyperlinks.Delete
> > Next n
> > Application.ScreenUpdating = True
> > End Sub
> >
> >
> > Gord Dibben MS Excel MVP
> >
> > On Fri, 10 Nov 2006 09:14:29 +0200, "SouthAfricanStan" <me@there> wrote:
> >
> >>How do I do this?
> >>
> >

--

Dave Peterson

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP


On Sun, 12 Nov 2006 18:11:02 +0200, "SouthAfricanStan" <me@there> wrote:

>Thanks so far.
>I'm a newby as far as this part of excel is concerned.
>Please advise me (key by key) how to do this, or perhaps there are relevant
>tutorials available on the internet?
>
>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>news:(E-Mail Removed)...
>> Sub Delete_Hyperlinks()
>> Application.ScreenUpdating = False
>> Dim n As Single
>> For n = 1 To Sheets.Count
>> Sheets(n).UsedRange.Cells.Hyperlinks.Delete
>> Next n
>> Application.ScreenUpdating = True
>> End Sub
>>
>>
>> Gord Dibben MS Excel MVP
>>
>> On Fri, 10 Nov 2006 09:14:29 +0200, "SouthAfricanStan" <me@there> wrote:
>>
>>>How do I do this?
>>>
>>
>

Gord Dibben MS Excel MVP

Thank You!

"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:(E-Mail Removed)...
> If not familiar with VBA and macros, see David McRitchie's site for more
> on
> "getting started".
>
> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>
> In the meantime..........
>
> First...create a backup copy of your original workbook.
>
> To create a General Module, hit ALT + F11 to open the Visual Basic Editor.
>
> Hit CRTL + r to open Project Explorer.
>
> Find your workbook/project and select it.
>
> Right-click and Insert>Module. Paste the code in there. Save the
> workbook and hit ALT + Q to return to your workbook.
>
> Run the macro by going to Tool>Macro>Macros.
>
> You can also assign this macro to a button or a shortcut key combo.
>
>
> Gord Dibben MS Excel MVP
>
>
> On Sun, 12 Nov 2006 18:11:02 +0200, "SouthAfricanStan" <me@there> wrote:
>
>>Thanks so far.
>>I'm a newby as far as this part of excel is concerned.
>>Please advise me (key by key) how to do this, or perhaps there are
>>relevant
>>tutorials available on the internet?
>>
>>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>>news:(E-Mail Removed)...
>>> Sub Delete_Hyperlinks()
>>> Application.ScreenUpdating = False
>>> Dim n As Single
>>> For n = 1 To Sheets.Count
>>> Sheets(n).UsedRange.Cells.Hyperlinks.Delete
>>> Next n
>>> Application.ScreenUpdating = True
>>> End Sub
>>>
>>>
>>> Gord Dibben MS Excel MVP
>>>
>>> On Fri, 10 Nov 2006 09:14:29 +0200, "SouthAfricanStan" <me@there> wrote:
>>>
>>>>How do I do this?
>>>>
>>>
>>
>
> Gord Dibben MS Excel MVP