Here's a cool, handy macro that will auto-generate a Table of Contents for any Excel file.

Steps remains the same as in any macro (Alt F11 to start VBA, Insert module, paste the code, save, File -> Return to Excel, then Alt F8, and Run). That's a mouthful, but you know what to do.

Here's the code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

<strong>Sub GenerateTableOfContents()</strong>
' Does a TOC already exist?
' If Err system variable is &gt; 0, it doesn't
Dim wSheet As Worksheet
On Error Resume Next
Set wSheet = Worksheets("Table of Contents")
If Not Err = 0 Then
 
' The Table of contents doesn't exist. Add it
Set wSheet = Worksheets.Add(Before:=Worksheets(1))
wSheet.Name = "TOC"
End If
On Error GoTo 0
 
' Set up the table of contents page
wSheet.[A2] = "Table of Contents"
 
With wSheet.[A6]
.CurrentRegion.Clear
.Value = "Subject"
End With
 
wSheet.[B6] = "Page(s)"
wSheet.Range("A1:B1").ColumnWidth = Array(36, 12)
TableRow = 7
PageCount = 0
Worksheets.Select
displayMessage = "We'll do a Print Preview for some calculations."
displayMessage = displayMessage &amp; "Please 'Close' the window when it appears."
MsgBox displayMessage
ActiveWindow.SelectedSheets.PrintPreview
 
' Now loop thru sheets, collecting TOC info
For Each S In Worksheets
S.Select
ThisName = S.Name
HPages = S.HPageBreaks.Count + 1
VPages = S.VPageBreaks.Count + 1
ThisPages = HPages * VPages
 
' Enter info about this sheet on TOC
wSheet.Cells(TableRow, 1).Value = ThisName
wSheet.Cells(TableRow, 2).NumberFormat = "@"
If ThisPages = 1 Then
  wSheet.Cells(TableRow, 2).Value =
  PageCount + 1 &amp; " "
Else
  wSheet.Cells(TableRow, 2).Value =
  PageCount + 1 &amp; " - " &amp; PageCount + ThisPages
End If
PageCount = PageCount + ThisPages
TableRow = TableRow + 1
Next S
<strong>End Sub</strong>

That's all there is to it! Note that VBA does not allow putting the lines after an equal to sign (" = ") on a separate line, although the above code has them so (only to save formatting.)

Feel free to leave a note if you don't understand some bit of the code and I'll try to explain, though it's quite self-explanatory. The calculation of the number of pages is done through the number of page breaks inside the Print Preview.

Have fun!

Following is a link to a web-based "round-trip" HTML editor. You can code HTML and see how it looks on the side, or write text with HTML formatting and see corresponding HTML interactively. Uses IE specific functions so currently works only with IE, but should give you ideas even if you want to work with other browsers.

Perl Digger is a freeware Perl script to dig for information about the server-side environment including a list of all installed Perl modules with a handy link to their documentation at CPAN. The script is based on simple CSS, so you can easily modify how it looks.

Please click here for the full code and a sample of what Perldigger looks like.

SnipStash: All the meta tags skinny

URL Digger (formerly SnipStash) is a meta tags analyzer (and then some). Please note that any URLs "dug" will show user agent as 'Sniptools/UrlDigger-0.9.1'.

Btw, if you use IE, there is a nifty little utility called BLUNK that is implemented as an IE toolbar (http://www.blunck.info/iehttpheaders.html).

Here's a handy macro to make a new worksheet inside your Excel file, then traverse through each and every sheet in the file, collecting all functions and formulas used in the whole file. All these formulas are listed on a separate worksheet in the same file.

The code is below, feel free to use it but please attribute whenever you use it, thanks –

Option Explicit
Public Sub ListFormulasInWorkbook()
Const SHEETNAME As String = "Formulas in *"
Have fun!

Const ALLFORMULAS As Integer = _
xlNumbers + xlTextValues + xlLogical + xlErrors
Const maxRows As Long = 65500
Dim formulaSht As Worksheet
Dim destRng As Range
Dim cell As Range
Dim wkSht As Worksheet
Dim formulaRng As Range
Dim shCnt As Long
Dim oldScreenUpdating As Boolean
With Application
oldScreenUpdating = .ScreenUpdating
.ScreenUpdating = False
End With
shCnt = 0
ListFormulasAddSheet formulaSht, shCnt
' Enumerate formulas on each sheet
Set destRng = formulaSht.Range("A4")
For Each wkSht In ActiveWorkbook.Worksheets
If Not wkSht.Name Like SHEETNAME Then
Application.StatusBar = wkSht.Name
destRng.Value = wkSht.Name
Set destRng = destRng.Offset(1, 0)
On Error Resume Next
Set formulaRng = wkSht.Cells.SpecialCells( _
xlCellTypeFormulas, ALLFORMULAS)
On Error GoTo 0
If formulaRng Is Nothing Then
destRng.Offset(0, 1).Value = "None"
Set destRng = destRng.Offset(1, 0)
Else
For Each cell In formulaRng
With destRng
.Offset(0, 1) = cell.Address(0, 0)
.Offset(0, 2) = "'" & cell.Formula
.Offset(0, 3) = cell.Value
End With
Set destRng = destRng.Offset(1, 0)
If destRng.row > maxRows Then
ListFormulasAddSheet formulaSht, shCnt
Set destRng = formulaSht.Range("A5")
destRng.Offset(-1, 0).Value = wkSht.Name
End If
Next cell
Set formulaRng = Nothing
End If
With destRng.Resize(1, 4).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
Set destRng = destRng.Offset(1, 0)
If destRng.row > maxRows Then
ListFormulasAddSheet formulaSht, shCnt
Set destRng = formulaSht.Range("A5")
destRng.Offset(-1, 0).Value = wkSht.Name
End If
End If
Next wkSht
With Application
.StatusBar = False
.ScreenUpdating = oldScreenUpdating
End With
End Sub
Private Sub ListFormulasAddSheet( _
formulaSht As Worksheet, shtCnt As Long)
Const SHEETNAME As String = "Formulas in "
Const SHEETTITLE As String = "Formulas in $ as of "
Const DATEFORMAT As String = "dd MMM yyyy hh:mm"
Dim shtName As String
With ActiveWorkbook
' Delete existing sheet, create new
shtCnt = shtCnt + 1
shtName = Left(SHEETNAME & .Name, 28)
If shtCnt > 1 Then _
shtName = shtName & "_" & shtCnt
On Error Resume Next
Application.DisplayAlerts = False
.Worksheets(shtName).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Set formulaSht = .Worksheets.Add( _
after:=Sheets(Sheets.Count))
End With
With formulaSht
' Format headers
.Name = shtName
.Columns(1).ColumnWidth = 15
.Columns(2).ColumnWidth = 8
.Columns(3).ColumnWidth = 60
.Columns(4).ColumnWidth = 40
With .Range("C:D")
.Font.Size = 9
.HorizontalAlignment = xlLeft
.EntireColumn.WrapText = True
End With
With .Range("A1")
.Value = Application.Substitute(SHEETTITLE, "$", _
ActiveWorkbook.Name) & Format(Now, DATEFORMAT)
With .Font
.Bold = True
.ColorIndex = 5
.Size = 14
End With
End With
With .Range("A3").Resize(1, 4)
.Value = Array("Sheet", "Address", "Formula", "Value")
With .Font
.ColorIndex = 13
.Bold = True
.Size = 12
End With
.HorizontalAlignment = xlCenter
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 5
End With
End With
End With
End Sub

Have fun!

Website URLs are long and difficult to remember. SnipURL allows you to 'snip' your long URLs into small, friendly and persistent links for sharing and remembering. Free!

Following are some features of SnipURL –

1. SHORTEN LONG, DIFFICULT-TO-REMEMBER URLs
Website URLs are getting longer and cumbersome. Not only are they difficult
to remember, it is also a pain sending them in emails because they
wrap on to more than one line and become un-clickable! SnipURL is a
fast and free service that allows you to "snip" your long URLs into small, compact links for sharing in emails and remembering easily.

Consider a web URL like the following (It is a real website, go
ahead and click it if you wish) –

Something

After "snipping" the same above URL looks like this –

http://snipurl.com/d (20 characters)
http://snipurl.com/memento (26 characters)

or

http://snurl.com/d (18 characters)
http://snurl.com/memento (24 characters)

SnURL and SnipURL are the same domain. Note that these four URLs are small so you can send them in emails without the fear of them wrapping, meaningful so you can remember and share them in the future, and permanent so if your underlying URL expires or changes you can always modify your snipped URL. (Asa bonus, you can even see the popularity of you URLs by viewing how many people clicked on it). Snipping is easy. You can set up a shortcut (bookmarklet) on your browser and you're ready to go.

2. IN FIVE LANGUAGES (and more coming soon!)
The website
can be viewed in English,
Chinese,
Japanese,
Spanish and
French. We are also
working on text-only
versions in each of these languages so that makes it 10 types
of websites as we write this. Among these languages, we cover at
least around 80% of the world if not more.

3. MORE INTUITIVE URLs WITH NICKNAMES
Don't like URLs
like
target="_blank">http://snipurl.com/h because they are just some
random text? Then you can make

target="_blank">http://snipurl.com/digicam_review and post more
intuitive URLs to your mailing lists or in your newsletters with
sophisticated user tracking etc.

4. PROTECTED SNIPPED URLs (PRIVATE)
Worried that
people can basically guess
http://snipurl.com/1 or
http://snipurl.com/2 or
http://snipurl.com/<some
sequence here>? But want to have a URL that you wish to
track BUT only with users you send the URL to? Then you can
"protect" your snippings with a keycode. SO instead of a URL such
as http://snipurl.com/i, it will
become
http://snipurl.com/i-secret
where "secret" was your password. Private "snippings" are excluded
from our statistics or search of course.

5. INTUITIVE STATISTICS & SEARCH IN "MYSNIPURL"
A
quick registration process gives you access to all the URLs you
have snipped in one screen, along with click-through statistics.
You can also search for the URLs you have snipped by entering
keywords that were contained in the original link or the nicknames
you gave to your snipped URLs. Apart from your own URLs, we also
have some popular statistics under the
EVERYTHING ELSE section, which includes for
instance the Most Popular
Snippings.

6. EDIT SNIPPINGS!
If your underlying link has expired
or is deadlink, you can always edit your snipping from the
MYSNIPURL page. (None of the comparable websites that we are aware
of offer a possibility to edit your snippings).

7. SHORTCUT
A spiffy shortcut allows you to add a
"bookmarklet" to your browser and "snip" URLs quickly (for people
who do not understand bookmarklets, we have a little visual help:

onclick="window.open(this.href, this.target,'status=yes,width=780,height=569'); return false"
title="Opens in a new window: How to drag the shortcut">http://snipurl.com/SnipThis.htm
which is a flash animation and opens in a new window or a
more detailed
FAQ).

• Copy to clipboard quickly (pop up window closes automatically
  after you copy the snipped URL in your clipboard)
• Share the snipped URL right from this website
• Compose new mails (using your default email client) …the
  snipped URL is automatically inserted

8. A PUBLIC STATISTICS PAGE WITH FLOOD CONTROL
A public
statistics page
(http://snipurl.com/else.php)
allows you to see the most popular snippings. A "flood control"
mechanism is implemented in this webpage so that unfairly "bumped"
accesses to URLs are carefully chaffed out. And of course, users
can search these too. "PROTECTED" URLs are not included in this
public view of course.

9. REAL REDIRECTS
SnipURL will also let you do "deep
snipping". So if your snipped website is
"http://snipurl.com/e" (which
points to the website
"http://www.copyright.gov")
and you have directories and files below that level, you can access
them using
"http://snipurl.com/e/carp/index.html"
which is actually
http://www.copyright.gov/carp/index.html.

10. SPAM CONTROL
If a snipped redirection is suspected
unfair use of our services and is in violation of our Terms of Use,
we reserve the right to suspend the snipping. An example is http://snipurl.com/th.

11. VISUAL INDICATION OF URL TYPES
When in the statistics webpage, a visual icon indicates what the nature of the
underlying URL is. E.g., http://snipurl.com/else.php, so that you can decide before you unwittingly click on an executable or a PDF file for instance.

12. PERMANANT SNIPPINGS!
Your snipped or shortened
URLs will be left as they are (you can always edit them too, of
course). Snipped URLs never die, they just get spam protected,
if anything.

13. TEXT-ONLY
VERSION FOR DIAL-UP USERS, OR FOR

target="_blank">MINIMALISTS IN GENERAL
If you find graphics obstructing your work (although they make the
information more visually intuitive, so we would recommend using
this version if possible), then you can use our toned-down text
version as well. Read more about this in our FAQ.

14. A PERL API
SnipURL now exists as a Perl API for those who are interested! Click here to go get the module at CPAN. (Thanks to Taguchi-san of Cisco for letting us know about this)