When I run this
Sub lin()
Dim i As Integer
Dim j As Integer
Dim c As Integer
Dim d As String
j = 138
c = 1
For i = 129 To Sheets.Count
Worksheets("MML").Range("EH").Offset(0, c).Formula = "=" & Worksheets(CStr(Sheets(i).Name)).Range("E4").Address(External:=True)
'i = i + 1
j = j + 1
c = c + 1
Next i
End Sub
It shows objected-defined error at Bold line
Range("EH") is the problem I'm guessing.
Do you have a named range called EH?
Or should the H be a row number and this is a typo?
BSB
This is not valid: Range("EH")
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
It was my typo I figure it out.
Thanks all
You're welcome.
It is a best practice to declare all variables. If you misspell a variable in your code, VBA will silently assume it is a Variant variable and go on executing with no clue to you that you have a bug. Go to the VBA development window, click Tools, Options, and check "Require Variable Declaration." This will insert the following line at the top of all new modules:
This option requires all variables to be declared and will give a compiler error for undeclared variables.
Please Login or Register to view this content.
If you are satisfied with the solution(s) provided, please mark your thread as Solved.
New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.
Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save
You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks