Button to sum numbers and update a running total

[NewCoder1]

Hi All,

I am getting an out of range error on the below green and bold line. I am attaching the Sub to a button to call it. Does anyone know why this error is coming up? There is a value in the sheet and within the cell.

Sub AddNumbersFromSheets()
Dim valueFromSheet1 As Double
Dim valueFromSheet3 As Double
Dim Total As Double
valueFromSheet1 = CDbl(Sheets("Sheet1").Range("E10").Value)
valueFromSheet3 = CDbl(Sheets("Sheet3").Range("C5").Value)
Total = valueFromSheet1 + valueFromSheet3
Worksheets(Sheet3).Range("C5").Value = Total
MsgBox "Thank you"
End Sub

 

[Joe4]

Welcome to the Board!

Do you have a sheet named "Sheet1"?
What exactly is in cell E10 of this sheet?

 

[NewCoder1]

Welcome to the Board!

Do you have a sheet named "Sheet1"?
What exactly is in cell E10 of this sheet?

Hi and thank you.

The sheet is called "Dashboard" but still shows as "Sheet1 (Dashboard)" in the VBA editor.

Within E10 is a number which is the result of a simple sum of 2 cells.

 

[Joe4]

The sheet is called "Dashboard" but still shows as "Sheet1 (Dashboard)" in the VBA editor.

Then you are referring to the sheet name incorrectly.

It should be:
valueFromSheet1 = CDbl(Sheets("Dashboard").Range("E10").Value)
or:
valueFromSheet1 = CDbl(Sheet1.Range("E10").Value)