sorry baru kebaca... waktu itu mungkin saya salah dan tidak sempat mengoreksi
menyebut Workbook.NAME yg sudah opened harusnya tanpa "XLS.nya For Each book In Workbooks If book.Name <> "All.xls" Then harusnya For Each book In Workbooks If book.Name <> "All" Then mail ini belum (tidak) membicarakan instruksi lain 2008/6/3 Doddy Enggarsyah <[EMAIL PROTECTED]>: > Dear, > Saya dah coba untuk melakukan looping ke semua opened workbook > Source = semua workbook yang terbuka kecuali "All.xls" > > Target = "All.xls" > > Looping copy paste berhasil hanya untuk pertama kali. > Selanjutnya gagal. Mohon bantuan para master macro J > > Terlampir adalah: > All.xls = target > M-copypaste.bas = module macro >
