Sub SelectAllSheetSATU()
   'nama-nama sheet kita ketahui
   Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub

Sub SelectAllSheetDUA()
   ' tanpa  mengetahui nama sheets
   ActiveWorkbook.Worksheets.Select
End Sub

tinggal ditambahi SheetMana yg diinginkan menjadi sheet aktif
(walaupun kita multi select sheets, namun hanya akan ada satu
sheet aktif, dan dapat kita tentukan dengan

Sheets("xxxxxxx").Activate

dua prosedur tsb ditulis di module standar



2008/1/18 Purnomo, Bambang <[EMAIL PROTECTED]>:

>    Dear,
> minta bantuan lagi neh, formula untuk select all sheet yang ada di
> excel macronya gmana yah..maklum lagi belajar dikit2
> Thanks
> Bambang
>

Kirim email ke