Want to achieve in the Excal, sheet1 in A1=sheet2 of A1 + sheet3 of A1, until the last sheet in this file
CodePudding user response:
Sub sum ()
Dim SHT As Worksheet Dim s As Integer For Each SHT Worksheets In If SHT. Name & lt;> "1" Then S=SHT. Range (" a1 ") + s End the If Next Sheet1. Range (" a1 ")=s
