attached file
Thx
-- Forwarded message --
From: ChilExcel chilexcel...@gmail.com
Date: 2011/2/28
Subject: I repeat again, anyone can help me?
To: excel-macros@googlegroups.com
I need to extract dynamic table, named worksheet
or book name (for each double click)
--
try this
Sub Macro1()
Dim s, y As Range
Set s = Sheets(PivoTTable).UsedRange
For Each y In s
If y.Value = 0 And Not IsEmpty(y.Value) Then
If IsNumeric(y.Value) Then
y.ShowDetail = True
End If
End If
Next y
'Range(E13).Select
'Selection.ShowDetail = True
End Sub
On Mon,