Sign Up

Sign Up to our social questions and Answers Engine to ask questions, answer people’s questions, and connect with other people.

Have an account? Sign In

Have an account? Sign In Now

Sign In

Login to our social questions & Answers Engine to ask questions answer people’s questions & connect with other people.

Sign Up Here

Forgot Password?

Don't have account, Sign Up Here

Forgot Password

Lost your password? Please enter your email address. You will receive a link and will create a new password via email.

Have an account? Sign In Now

You must login to ask a question.

Forgot Password?

Need An Account, Sign Up Here

Please briefly explain why you feel this question should be reported.

Please briefly explain why you feel this answer should be reported.

Please briefly explain why you feel this user should be reported.

Sign InSign Up

The Archive Base

The Archive Base Logo The Archive Base Logo

The Archive Base Navigation

  • SEARCH
  • Home
  • About Us
  • Blog
  • Contact Us
Search
Ask A Question

Mobile menu

Close
Ask a Question
  • Home
  • Add group
  • Groups page
  • Feed
  • User Profile
  • Communities
  • Questions
    • New Questions
    • Trending Questions
    • Must read Questions
    • Hot Questions
  • Polls
  • Tags
  • Badges
  • Buy Points
  • Users
  • Help
  • Buy Theme
  • SEARCH
Home/ Questions/Q 1025201
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Editorial Team
Asked: May 16, 20262026-05-16T11:53:32+00:00 2026-05-16T11:53:32+00:00

Dim collet As String collet = ThisWorkbook.ColLetter(ColCount) + : + LTrim(Str(Target.Row)) Set my_r =

  • 0
Dim collet As String
collet = ThisWorkbook.ColLetter(ColCount) + ":" + LTrim(Str(Target.Row))
Set my_r = Target(collet).Select

I’m getting the runtime error at the last line in my code.Cannot figure out why

  • 1 1 Answer
  • 0 Views
  • 0 Followers
  • 0
Share
  • Facebook
  • Report

Leave an answer
Cancel reply

You must login to add an answer.

Forgot Password?

Need An Account, Sign Up Here

1 Answer

  • Voted
  • Oldest
  • Recent
  • Random
  1. Editorial Team
    Editorial Team
    2026-05-16T11:53:33+00:00Added an answer on May 16, 2026 at 11:53 am

    It would help to know exactly what you’re trying to accomplish here, but I can make a few suggestions.

    • First, when referencing a single cell as I believe you are trying to do, a colon is not required. So collet should contain something like “B2”, not “B:2”.

    • Second, when you call Select on a Range object it uses the parameter as an offset, not an absolute reference. So if Target is cell B2, and collect is B2, then Target("B2").Select will actually select cell C3.

    • And lastly, I’m assuming by the presence of the Target object that this code is inside an event handler. Make sure that by selecting a different range you are not triggering the same event again. You could end up with an infinite loop that ends only when you reach the bottom or the end of your spreadsheet. This scenario can cause the runtime error 1004 that you are seeing.

    • 0
    • Reply
    • Share
      Share
      • Share on Facebook
      • Share on Twitter
      • Share on LinkedIn
      • Share on WhatsApp
      • Report

Sidebar

Related Questions

Dim str as String str = 30 40 50 60 I want to count
dim dataType as String toolTip=Marks And Number[String] I want to get the [String] alone.
dim shell,x,y x=D:\d y=c.bat & x set shell=createobject(wscript.shell) shell.run y shell.run a.bat set shell=nothing
Consider: Dim line As String Using readFile As New StreamReader(SalesUpdateFile) While (line = readFile.ReadLine)
Here is the sample: Dim TestString As String = Hello, & Chr(0) & World
Dim loc As String = If txtlocated.Value <> ABC Then loc = txtlocated.Value txtlocated
Dim flag As Boolean = True Dim fileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName) Dim fileExtension
Dim usersInRole As String() = Roles.GetUsersInRole(HR_Base_Role) Dim Myusers As New MembershipUserCollection For Each UserName
Dim Cnxn As ADODB.Connection Set Cnxn = New ADODB.Connection With Cnxn .Provider = MSDataShape
Dim arrS(1000, 6) As String Sub FromHere() '(I've already filled the array and just

Explore

  • Home
  • Add group
  • Groups page
  • Communities
  • Questions
    • New Questions
    • Trending Questions
    • Must read Questions
    • Hot Questions
  • Polls
  • Tags
  • Badges
  • Users
  • Help
  • SEARCH

Footer

© 2021 The Archive Base. All Rights Reserved
With Love by The Archive Base

Insert/edit link

Enter the destination URL

Or link to existing content

    No search term specified. Showing recent items. Search or use up and down arrow keys to select an item.