Excel Forum
- JMT Microsoft Excel QA Board
Colo, Gareth, Andrew 
http://www.puremis.net/excel/cgi-bin/yabb/YaBB.pl 
- MrExcel.com Bill Jelen http://www.mrexcel.com/board2/
- OzGrid.com Dave Hawley http://ozgrid.com/forum/
- The Office Experts Tracy Syrstad http://www.theofficeexperts.com/forum/
- VBA Express Anne Troy http://www.vbaexpress.com/forum/index.php?
- Herbers Excel-Forum http://www.herber.de/forum/
- Das Excel-Forum http://dasexcelforum.de/
- Excel Home http://fjt.infoscape.com.cn/gate/big5/www.excelhome.net/index.asp
- XL-logic.com Aaron Blood’ http://www.xl-logic.com
Helo, Saya baru dalam hal MACRO,,, Kalo boleh saya mau minta tolong nie,,,
Jadi sekarang saya ingin menghapus Shape – shape / picture yang berada di sebuah row tertentu…tapi selalu gagal..padahal kalo di jalankan bukan pada file yang sesungguhnya code tersebut bisa jalan…tapi bila di letakkan di File sesungguhnya tidak dapat jalan,,malah menimbulkan error,,
Code saya seperti berikut :
Worksheets(“NewData”).Unprotect Password:=007
Dim myCell As Range, myShape As Shape
Set myCell = Range(“B6″)
For Each myShape In ActiveSheet.Shapes
If Intersect(myShape.TopLeftCell, myCell) Is Nothing Then ‘Err
‘do nothing
Else
myShape.Delete
End If
Next myShape