Summing all rows in a user inputted column

Hello,

Originally I asked this on vbaexpress, but that website appears to have gone away

I need to sum all the rows, except the header row, of a column inputted by the user. The column will be located in a worksheet dubbed SourceSheet.

Here's a few pieces of code related to what I am trying to do. The header row is always row 1. So the rows I'm summing are always 2 - myrows.

Let me know if I left anything out, or if you have any questions.

Thanks in advance.

Sub CreateMatrixVector()
    Dim SourceSheet As Worksheet
    Dim WeightingRange As String
    Dim MyRows As Long
    Dim MySum As Long
                    
'Original worksheet
    Set SourceSheet = ActiveSheet
    
'Prompt for Weighting Range
    WeightingRange = InputBox("Please enter the column letter of the column used for weighting")
  
'Count the number of rows in the worksheet
    MyRows = SourceSheet.UsedRange.Rows.Count

End Sub

Hello NukedWhale,

Here is the updated macro...

Sub CreateMatrixVector()

    Dim MySum As Long
    Dim SumRng As Range
    Dim SourceSheet As Worksheet
    Dim WeightingRange As String
                    
'Original worksheet
    Set SourceSheet = ActiveSheet
    
'Prompt for Weighting Range
    WeightingRange = InputBox("Please enter the column letter of the column used for weighting")
  
'Sum the cells in choosen column
    With SourceSheet
      SumRng = .Range(.Cells(2, WeightingRange), .Cells(.Rows.Count, WeightingRange).End(xlUp))
      MySum = WorksheetFunction.Sum(SumRng)
    End With
    
End Sub

Hello NukedWhale,

Sorry about that, the Set statement is missing to assign the Range to the object variable. Change that line to this...

    Set SumRng = .Range(.Cells(2, WeightingRange), .Cells(.Rows.Count, WeightingRange).End(xlUp))

Hello LostBoy,

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.

Also the OP requested a VBA solution not a Worksheet Formula solution (Different Forum).