Replies

Sub HoneyWhatsYourName()
‘Jim Cone – Portland Oregon – Dec 2008
‘Identifies Group name for grouped shapes.
Dim x As Long
Dim N As Long
Dim Shp As Shape
Dim strname As String
strname = Application.Caller
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoGroup Then
x = Shp.GroupItems.Count
For N = 1 To x
If Shp.GroupItems(N).Name = strname Then
MsgBox Shp.Name
Exit For
End If
Next
End If
Next
Set Shp = Nothing
End Sub

Well, there is a windows update newsgroup…
http://groups.google.com/group/microsoft.p…wsupdate/topics
I have never used it. (so far)
—
Jim Cone
Portland, Oregon USA

Maybe…
http://support.microsoft.com/kb/290301
…Window Installer Cleanup Utility
—
Jim Cone
Portland, Oregon USA

Your declaration for Arrall() is incorrect.
It should be: Dim Arrall(0 to 10, 0 to 7) ’11 rows by 8 columns
However a slightly different approach may work best for you…
‘–
Public Sub daysarr()
Dim ArrCrew1Days(10) As String
Dim ArrCrew2Days(10) As String
Dim ArrCrew3Days(10) As String
Dim ArrCrew4Days(10) As String
Dim ArrCrew5Days(10) As String
Dim ArrCrew6Days(10) As String
Dim ArrCrew7Days(10) As String
Dim ArrCrew8Days(10) As String
Dim Arrall As Variant

‘code to fill the arrays goes here

Arrall = Array(ArrCrew1Days, ArrCrew2Days, ArrCrew3Days, ArrCrew4Days, _
ArrCrew5Days, ArrCrew6Days, ArrCrew7Days, ArrCrew8Days)

Range(“A13:H23”).Value = Application.Transpose(Arrall)
End Sub
‘–
Jim Cone
Portland, Oregon USA

My Excel add-in “Display Word Permutations” may be useful?
It is attached. It will display permutations for words or numbers up to 8 characters.
(Order matters in permutations)
There is also an option to flag legitimate words created in the list.
It finds the first empty column on the active worksheet to place the list.
A Word.doc install/use file is included.
‘–
Jim Cone
Portland, Oregon USA

Sub PrintEachRow()
‘Jim Cone – June 2005 – Select print area and run code.
Dim rngPrint As Excel.Range
Dim rngRow As Excel.Range
Set rngPrint = Application.Intersect(Selection, ActiveSheet.UsedRange)

If Not rngPrint Is Nothing Then
   For Each rngRow In rngPrint.Rows
       If Application.CountA(rngRow) > 0 Then
          rngRow.PrintOut copies:=1
       End If
   Next
End If
Set rngPrint = Nothing
Set rngRow = Nothing
End Sub
‘—
Jim Cone
Portland, Oregon USA

I think what is wrong is that I misinterpreted what you are after.
The formula returns a random cell value from the data not an entire row.
I believe “Data Analysis Sampling” also returns individual cell values not entire rows.
Jim Cone
Portland, Oregon USA

Maybe this formula instead…
=INDEX($B$5:$U$504,RANDBETWEEN(1,500),RANDBETWEEN(1,20))
Assumes your data is in B5:U504 and that you have the Analysis ToolPak installed.
Fill the formula across 30 cells to get 30 random samples. Press the F9 key to refresh.
Jim Cone
Portland, Oregon USA

A custom Hosts file that is updated about once a month is available here…
http://www.mvps.org/winhelp2002/hosts.htm%5B/url%5D
Their explanation on the website leave something to be desired but it does knock out
a bunch of advertising leaving blank areas. (I use FireFox)
Also, strictly as a test , I found it prevents access to a number of questionable “adult” websites.
Download it, unzip it and send it to…
C:WINDOWSsystem32driversetc (Windows XP)

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware%5B/url%5D
(Excel Add-ins / Excel Programming)

I have read a report in another newsgroup that there is an absolute limit to the number of sheets in a workbook.
Both Excel 2003 and Excel 2007 crashed upon adding the 5,448th sheet.
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware%5B/url%5D
(Excel Add-ins / Excel Programming)

Yes, and the ZA forum is full of complaints about it.
I tried installing it anyway. That was a mistake.
It refused to install and on reboot the True Vector service would not run.
I tried a couple of reboots and it told me each time that there was an error and I should reboot.
Had to use a Windows restore point to get squared away.
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

You are welcome.
Others should note that since my original post in May, 2007 – the terms
upon which the program is offered have changed.
The List Files program is still available by direct download however,
a payment of $7.00 is requested if you decide to keep the program.
Jim Cone
San Francisco

If you have Microsoft Excel, the free Excel add-in “List Files”
will do that (and more). Download from…
http://www.realezsites.com/bus/primitivesoftware%5B/url%5D
No registration required.

Jim Cone
San Francisco, USA

This might be of interest…
http://blogs.msdn.com/excel/archive/2006/08/28/724641.aspx%5B/url%5D
“Deprecated Features For Charting”
(Excel 2007 – Eric Patterson – Microsoft)
—
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware%5B/url%5D

re: “did you intentionally put code in your program to prevent that?”

Look at the “IsAddin” property of the workbook object.

Jim Cone