Out of range?

[Guvnor]

I keep on getting the error out of range. Can somone please tell me what needs to be changed in order to make this code work?

Sub InsertBaldata3()
Dim myRowCount As Integer
Dim myRng As Range

Set myRng = Sheets("insert balance data (2)&quot.Range("1:1&quot

myRowCount = Application.CountA(myRng) - 1

With Sheets("company balance sheet(2)&quot
.Cells(myRowCount + 5, 5).Value = myRng.Range("b8&quot.Value
.Cells(myRowCount + 6, 5).Value = myRng.Range("b9&quot.Value
.Cells(myRowCount + 8, 5).Value = myRng.Range("b11&quot.Value
.Cells(myRowCount + 9, 5).Value = myRng.Range("b12&quot.Value
.Cells(myRowCount + 10, 5).Value = myRng.Range("b13&quot.Value
.Cells(myRowCount + 11, 5).Value = myRng.Range("b14&quot.Value
.Cells(myRowCount + 13, 5).Value = myRng.Range("b16&quot.Value
.Cells(myRowCount + 14, 5).Value = myRng.Range("b17&quot.Value
.Cells(myRowCount + 15, 5).Value = myRng.Range("b18&quot.Value


End With

End Sub

 

[Guvnor]

Any answers?

 

[euskadi]

Did you change the sheet name? Coincidentally, I dropped your code into a new workbook and forgot to change the sheet name of "insert balance data(2)" and got the same error. Then I changed the name to "sheet1" which is a valid worksheet in my workbook and it worked without error.

 

[Guvnor]

thanks alot that sorted it!