error code 424

[marcel49]

Hello I'm new to VBA and I've put the following code in the VBA editor which I've got from a tutorial:

Public Sub Mijneersteprogramma()

Range("B2").Select
ActiveCel.Value = InputBox("Enter Waarde")
Range("B3").Select
Actievcel.Value = InputBox("Enter Waarde")
Range("b4").Select
ActiveCel.Value = InputBox("Enter Waarde")
Range("b5").Select
Actievcel.Value = InputBox("Enter Waarde")
Range("B6").Select
ActiveCel.Value = InputBox("enter Waarde")
Range("b7").Select
ActiveCel.Formula = "sum(B2..B6)"
ActiveWorkbook.SaveAs Filename:="Mijneersteprogramma.xls"

End Sub

When I run the code I get:error code 424 need object.

I done the step by step debugger and after putting a value in the Inputbox and clicked on Ok the error code apears

What is going wrong

Thank you for the answer

Marcel

 

[Fluff]

Hi & welcome to MrExcel.
You have spelt ActiveCell wrongly, try it like

Range("B2").Value = InputBox("Enter Waarde")
Range("B3").Value = InputBox("Enter Waarde")

 

[Jack in the UK]

Option Explicit

Public Sub Mijneersteprogramma()

Const myTEXT As String = "Enter Waarde"

Range("B2") = InputBox(myTEXT)
Range("B3") = InputBox(myTEXT)
Range("b4") = InputBox(myTEXT)
Range("b5") = InputBox(myTEXT)
Range("B6") = InputBox(myTEXT)

'// jiuk - Sum the range
Range("b7") = "sum(B2..B6)"

'// jiuk - Save the Excel Workbook

ActiveWorkbook.SaveAs Filename:="Mijneersteprogramma.xls"

End Sub

 

[Fluff]

Or

Sub marcel49()
   Dim i As Long
   
   For i = 2 To 6
      Range("B" & i).Value = InputBox("Enter Waarde")
   Next i
   Range("B7").Formula = "=sum(B2:B6)"
   ActiveWorkbook.SaveAs "Mijneersteprogramma.xls", 56
End Sub

 

[marcel49]

Hi & welcome to MrExcel.
You have spelt ActiveCell wrongly, try it like

Range("B2").Value = InputBox("Enter Waarde")
Range("B3").Value = InputBox("Enter Waarde")

Thank you very much my problem is solved

 

[Fluff]

You're welcome & thanks for the feedback