VBA Create sheet if sum > 0

[srosk]

Can someone help with VBA code to create a new sheet named "Code2" if sum of column AG >0?

Thank you!

 

[Joe4]

Welcome to the Board!

Here is one way:

    If Application.WorksheetFunction.Sum(Range("AG:AG")) > 0 Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Code2"
    End If

 

[srosk]

Thanks so much. Very new to vba, I had written a few codes and Googled a lot and couldn't find it. Much much appreciated!!

Welcome to the Board!

Here is one way:

    If Application.WorksheetFunction.Sum(Range("AG:AG")) > 0 Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Code2"
    End If

 

[Joe4]

You are welcome.
Glad I was able to help!