coba pakai
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Iman Chandra wrote:
> Dear all,
> Mohon bantuannya.
> Di Sheet 1 cell A1 ada formula =B1+C1
> Saya ingin copy formula itu ke cell A2 di Sheet1, Sheet2, Sheet3, dst
> Inginnya sekali run macro tersebut otomatis berlaku utk Sheet1,
> Sheet2, Sheet3, dst.
> Saya coba buat dgn Dim dan For Each, tapi kok gak jalan otomatis ya.
> Mesti masuk ke masing2 sheet dulu baru jalan.
> Mohon bantuannya...
>
> Ini code macro saya
>
> Sub CopyFormula()
> Dim Bt As Worksheet
> For Each Bt in Worksheets
> Range ("A1").Copy Destination:=Range("A2")
> Next Bt
> End Sub
>
>
> Salam,
>
> Iman
>
