Solved: Adding to values together within a cell programatically

[bopo]

Hi

I know this is very simple, its simply a syntax and forgetfulness problem, as I haven't used VBA for a long time, basically I'm getting an 'Object is required' error, and i = 1

[VBA]Range("A5").Value = CustomerDetails.Range("A6").Value + i[/VBA]

[omnibuster]

Maybe helps
[vba]
i = 1
Range("A5").Value = CustomerDetails.Range("A6").Value
Range("A5").Value = Range("A5").Value + i
[/vba]

[bopo]

Thanks for the help, but I'm still getting an error, I think its because I'm inserting a new row or something, can anyone see anything wrong with this logically

Note last line is comment, I was trying different methods and trying to identify which line of code was creating the error

[VBA]Sub NewCustomerRecords()



Sheets("CustomerDetails").Select

Worksheets("CustomerDetails").Rows("4:4").Select

Selection.End(xlDown).Select
Selection.EntireRow.Insert



Range("A5").Value = CustomerDetails.Range("A6").Value
' Range("A5").Value = Range("A5").Value + 1


End Sub[/VBA]

[omnibuster]

Works for me
[VBA]
Sub NewCustomerRecords()
Dim i As Single
i = 1
Sheets("CustomerDetails").Select
Worksheets("CustomerDetails").Rows("4:4").Select
Selection.End(xlDown).Select
Selection.EntireRow.Insert
Range("A5").Value = Sheets("CustomerDetails").Range("A6").Value + i
End Sub
[/VBA]

[georgiboy]

[vba]Range("A5").Value = CustomerDetails.Range("A6").Value[/vba]
In this part are you refering to the sheet CustomerDetails?

If you are then it should be...

[vba]Range("A5").Value = Sheets("CustomerDetails").Range("A6").Value[/vba]
As Omnibuster has already changed it to.

If you are already selecting the sheet CustomerDetails then it could be...

[vba]Range("A5").Value = Range("A6").Value[/vba]