Multiple sheets in a single workbook

[temakhafola]

How Do I make the below code work with 30 sheets which have different account number?

Sub Fixed_Assets_Reconciliation()
Range("A1").Value = "STANDARD RECONCILIATION FORM"
Range("A2").Value = "DEPARTMENT"
Range("A3").Value = "SECTION WITHIN DEPARTMENT"
Range("C2").Value = "EAM"
Range("C3").Value = "FIXED ASSETS"
Range("A6").Value = "Company Name"
Range("E6").Value = "Oracle Code"
Range("A7").Value = "Ghana"
Range("E7").Value = "1701"
Range("A9").Value = "Account Ownership"
Range("A10").Value = "Responsibility"
Range("B10").Value = "Name"
Range("D10").Value = "Title"
Range("E10").Value = "Email address"
Range("A11").Value = "Account Owner"
Range("A12").Value = "Reconciler"
Range("A13").Value = "1st Reviewer"
Range("A14").Value = "2nd Reviewer"
Range("B11").Value = "Kashveer"
Range("B12").Value = "Sipho"
Range("B13").Value = "Thabiso"
Range("B14").Value = "Ali"
Range("C11").Value = "Bhoopal"
Range("C12").Value = "Makhanthisa"
Range("C13").Value = "Makhafola"
Range("C14").Value = "Mthembu"
Range("D11").Value = "Manager"
Range("D12").Value = "Administrator"
Range("D13").Value = "Supervisor"
Range("D14").Value = "Senior Manager"
Range("E11").Value = "Kashveer.Bhoopal@mtn.com"
Range("E12").Value = "Sipho.Makhanthisa@mtn.com"
Range("E13").Value = "Thabiso.Makhafola@mtn.com"
Range("E14").Value = "Ali.Mthembu"
Range("A16").Value = "Account Description"
Range("A17").Value = "Account Type"
Range("A18").Value = "Asset"
Range("B17").Value = "GL Account Number"
Range("B18").Value = "111150"
Range("C17").Value = "Hyperion Account number"
Range("D17").Value = "Account Owner"
Range("E17").Value = "Account Name"
Range("F17").Value = "Account Description"
Range("D18").Value = "Kashveer Bhoopal"
Range("E18").Value = "Land Leased - Cost"
Range("F18").Value = "The Cost of Land not owned by the company usually these land are rented for building site"
Range("A20").Value = "ACCOUNT PURPOSE"
Range("A21").Value = "Transaction Types & Account purpose"
Range("A22").Value = "Additions Disposal & Reallocations for land not owned by the company. To record Assets Capitalised for Land Leased"
Range("D21").Value = "Supporting Trial Balance/Interface Details"
Range("D22").Value = "Automated (system generated)"
Range("E22").Value = "Manual (Spreadhseet calculated other)"
Range("F21").Value = "Origin of sources (Single or Multiply system)"
Range("F22").Value = "Single"
Range("G22").Value = "Multiple"
Range("D23").Value = "X"
Range("F23").Value = "X"
Range("A25").Value = "TYPES OF JOURNAL ENTRIES"
Range("A26").Value = "Types of Activity"
Range("A27").Value = "Additions"
Range("A28").Value = "Disposal"
Range("A29").Value = "Reallocation/Reclass"
Range("D26").Value = "Journal Source"
Range("D27").Value = "FAR"
Range("D28").Value = "FAR"
Range("D29").Value = "General Ledger"
Range("E26").Value = "Journal Category"
Range("G26").Value = "Journal Type (Debit/Credit)"
Range("G27").Value = "Debit"
Range("G28").Value = "Credit"
Range("G29").Value = "Debit/Credit"
Range("A31").Value = "NORMAL ACCOUNT BALACE AND RANGE"
Range("A32").Value = "Typical Balance (Debit/Credit/Debit and Credit)"
Range("A33").Value = "Debit"
Range("D32").Value = "Normal Range of Activiy"
Range("D33").Value = "Balance ranges from R500K-R1M"
Range("F32").Value = "Trend Comment ( comment on the trend for the last 3 months attached anaysis if there hava been significant variances)"
Range("A35").Value = "ACCOUNT RECONCILIATION DETAILS"
Range("A36").Value = "Version No."
Range("A37").Value = "V1.1"
Range("B36").Value = "Reconciliation Period"
Range("B37").Value = "31-Mar-2016"
Range("C36").Value = "Currency"
Range("C37").Value = "GHS"
Range("D36").Value = "Reconciliation Frequency"
Range("D37").Value = "Monthly/CD3"
Range("A39").Value = "Reconciliation"
Range("A41").Value = "GL Account Number"
Range("A42").Value = "111150"
Range("A44").Value = "Total:"
Range("B41").Value = "GL Balance at period end"
Range("B42").Formula = "=IFERROR(VLOOKUP(A42,'Trial Balance'!$1:$1048576,6,0),0)"
Range("C41").Value = "Balance per supporting document"
Range("C42").Formula = "=IFERROR(VLOOKUP(A42,Subledger!$C:$N,12,0),0)"
Range("D41").Value = "Journal"
Range("D42").Formula = "=IFERROR(VLOOKUP(A42,'Capitalisation Journal'!$1:$1048576,2,0),0)"
Range("E41").Value = "Difference"
Range("E42").Formula = "=B42-C42-D42"
Range("F41").Value = "Reconcilied"
Range("F42").Formula = "=C42"
Range("G41").Value = "Reconcilied with reconciling item"
Range("H41").Value = "Unreconciled"
Range("I41").Value = "Aged Item>_30days"
Range("K41").Value = "Comment"
Range("B44").Formula = "=sum(B42:B43)"
Range("C44").Formula = "=sum(C42:C43)"
Range("D44").Formula = "=sum(D42:D43)"
Range("E44").Formula = "=sum(E42:E43)"
Range("F44").Formula = "=sum(F42:F43)"
Range("A46").Value = "Diffenrece (detailed below):"
Range("B47").Value = "Check"
Range("A49").Value = "Details of reconciling items(identified reconciling items aged reconciling items)"
Range("A50").Value = "Trans date"
Range("B50").Value = "Account Number"
Range("D50").Value = "Item Category"
Range("E50").Value = "Transaction Narrative"
Range("F50").Value = "Amount"
Range("G50").Value = "Action"
Range("H50").Value = "Responsible (reconciler)"
Range("I50").Value = "Deadline"
Range("J50").Value = "Correction journal entry number"
Range("K50").Value = "Closed"
Range("A60").Value = "Action plan for unreconciled items(Aged items unidentified reconciling items unsupported items)"
Range("A61").Value = "Trans date"
Range("B61").Value = "Account Number"
Range("D61").Value = "Item Category"
Range("E61").Value = "Transaction Narrative"
Range("F61").Value = "Amount"
Range("G61").Value = "Action"
Range("H61").Value = "Responsible (account owner)"
Range("I61").Value = "Deadline"
Range("J61").Value = "Correction journal entry number"
Range("K61").Value = "Closed"
Range("A70").Value = "Account Reconciliation ResultState the appropriate outcome for the account being reconcilied)"
Range("A71").Value = "Reconciled"
Range("A72").Value = "X"
Range("B71").Value = "Reconciled with Reconciling Items"
Range("C71").Value = "Unreconciled"
Range("D72").Value = "Note:If amount is not material reviewer can decide that reconciled with reconciling item"
Range("A74").Value = "JUDGEMENTS"
Range("A75").Value = "The following judgements have been applied"
Range("A82").Value = "CERTIFICATION"
Range("A83").Value = "Certificate:Reconciler"
Range("A84").Value = "I certify that I have prepared this reconciliation in accordance with the policy. I have confirmed that the reconciliation results are properly classified and that all reconciling items have been reported. For reconciliations incorporating supporting documentation I have ensured that applicable electronic files have been attached to the reconciliation and/or hard copy documentation has been maintained."
Range("A87").Value = "Reconciler's signature:"
Range("A88").Value = "Reconciler's name:"
Range("A89").Value = "Date:"
Range("B88").Value = "Sipho Makhanthisa"
Range("B89").Formula = "=today()"
Range("A96").Value = "Certificate:Reviewer 1"
Range("A97").Value = "I certify that I have reviewed this reconciliation in accordance with the policy. I have confirmed that the reconciliation results are properly classified and that all reconciling items have been reported. For reconciliations incorporating supporting documentation I have ensured that applicable documents have been attached."
Range("A100").Value = "Reviewer's signature:"
Range("A101").Value = "Reviewer's name:"
Range("A102").Value = "Date:"
Range("B101").Value = "Thabiso Makhafola"
Range("B102").Formula = "=today()"
Range("A106").Value = "Certificate: Reviewer 2"
Range("A107").Value = "I certify that I have reviewed this reconciliation in accordance with the policy policy. I have confirmed that the reconciliation results are properly classified and that all reconciling items have been reported. For reconciliations incorporating supporting documentation I have ensured that applicable documents have been attached."
Range("A110").Value = "Reviewer's signature:"
Range("A111").Value = "Reviewer's name:"
Range("A112").Value = "Date:"
Range("B111").Value = "?????"
Range("B112").Formula = "=today()"
Range("A117").Value = "RAG STATUS KEY:"
Range("B119").Value = "-Material adjustment"
Range("B120").Value = "-Overdue items =>30 days"
Range("B122").Value = "_immaterial adjustments<30days"
Range("B123").Value = "_immaterial adjustments>30days"
Range("B125").Value = "100% reconciled"
Range("H2").Value = "RAG STATUS"
End Sub

 

[Joe4]

Welcome to the Board!

Are there other sheets in this workbook, other than the 30 you want to update, or do ALL of the sheets in the workbook need this macro run on them?
If there are certain sheets that you do not want updates, I would recommend creating a sheet that has the names of all the sheets you want updated, then loop through that list, and have it call the macro you have already created.

That code might look something like this:

Sub MySheetLoopMacro()

    Dim myListRange As Range
    Dim cell As Range
    
'   Set range where list of sheet names exists
    Set myListRange = Sheets("List").Range("A1:A3")
    
    Application.ScreenUpdating = False
    
'   Loop through all sheets in list and apply macro
    For Each cell In myListRange
'       Activate sheet
        Sheets(cell.Value).Activate
'       Call your macro
        Call Fixed_Assets_Reconciliation
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub