Como ejecutar macro especifica en ActiveSheet en cada hoja del archivo de excel.
Mi duda es como puedo ejecutar la misma macro en cada una de las páginas del libro ahora mismo tengo este código pero al ser una macro con ActiveSheet siempre detecta la misma página 1...
Sub WorksheetLoop2()
' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
Dim attBook$
attBook = Environ("temp") & "\" & ActiveSheet.[b1] & ".xlsx"
' Guardo la hoja activa como un libro independiente
ActiveSheet.Copy
If Dir(attBook) <> "" Then Kill attBook
With ActiveWorkbook
.SaveAs Filename:=attBook, FileFormat:=51
.Close False
End With
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ActiveSheet.[a1]
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Attachments.Add attBook
.display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' Insert your code here.
' This line displays the worksheet name in a message box.
MsgBox Current.Name
Next
End Sub
Quiero que se ejecute la macro en cada una de las páginas,.
Esta macro la ocupo para que envié un mail de cada hoja Activa tomando el mail de la celda A1de cada página