What's in your Personal.xls??

[thing]

Originally Posted by thing

I'm not anonymouse, but these are simple:
For Each sht In Sheets
sht.Zoom = 100
Next sht

Correction:

Sub Zoom_150_Sheets()
    For Each sht In Worksheets
        sht.Activate
        ActiveWindow.Zoom = 150
    Next sht
End Sub

Appears each sheet has to be active for this to work.

[Cloister]

Originally Posted by BigDawg

Thanks AS.

And how do you make a button and link it?

All of my current VB experience involves editting code that already exists.

Buy a book and find out. John Walkenbach's books are pretty good.

[jackj109]

Originally Posted by ADoubleDot

Do you mind posting the code for the concatenate function? Thanks in advance.

It's pretty simple, I'm sure it could be improved upon:

Function conc(range1 As Range, Optional delimiter1 As String = "") As String
Dim acell As Range
Dim thestring As String
thestring = ""
For Each acell In range1
thestring = thestring & acell & delimiter1
Next
conc = Left(thestring, Len(thestring) - Len(delimiter1))
End Function

Originally Posted by thing

Correction:

Sub Zoom_150_Sheets()
    For Each sht In Worksheets
        sht.Activate
        ActiveWindow.Zoom = 150
    Next sht
End Sub

Appears each sheet has to be active for this to work.

Identical to mine, except I use an inputbox instead of using a constant.

[ADoubleDot]

Originally Posted by jackj109

It's pretty simple, I'm sure it could be improved upon:

Function conc(range1 As Range, Optional delimiter1 As String = "") As String
Dim acell As Range
Dim thestring As String
thestring = ""
For Each acell In range1
thestring = thestring & acell & delimiter1
Next
conc = Left(thestring, Len(thestring) - Len(delimiter1))
End Function

Much obliged.

[chicken_po_boy]

Spit out a list of state names and abbreviations my company writes in
Unhide all sheets
Zoom to 100% all sheets
Open current directory
Show dependents for selected cells
Show precedents for selected cells
Paste vales transpose
Ammend formulas (very useful, thanks I++!!)

[A2TRM]

Cool thread, bro. I might have to steal a few of these.

My most under-rated Personal.xls feature is disabled F1 key. I constantly hit F1 when I'm aiming for F2 and the "Loading Help from Office.com" window kills me every time.

[ShakeNBakes]

Originally Posted by chicken_po_boy

Spit out a list of state names and abbreviations my company writes in
Unhide all sheets
Zoom to 100% all sheets
Open current directory
Show dependents for selected cells
Show precedents for selected cells
Paste vales transpose
Ammend formulas (very useful, thanks I++!!)

nice. I'd be interested in borrowing your code for these

[NotUrAvgXBar]

In addition to a lot of the macros already listed, I have macros that do the following:

Round all numbers in a selection to a number of decimal places
Undo the above rounding
Wrap all the cells in a selection in an iferror function
Undo the above iferror macro
Change the relative/absolute reference in a selection of cells

[chicken_po_boy]

Originally Posted by ShakeNBakes

nice. I'd be interested in borrowing your code for these

Simple code, but a timesaver for me. Thank ADoubleDot; I think he gave me the idea.

Sub ShowDependents()
For Each c In Selection
c.Select
Selection.ShowDependents
Next
End Sub

Sub ShowPrecedents()
For Each c In Selection
c.Select
Selection.ShowPrecedents
Next
End Sub