使用像元值作为范围VBA

Question

I am trying to have a range (call it "A5:L10") be picked up from a cell. In other words, my code looks something similar to that below:

  Dim summ_rng1 As String
  summ_rng1 = Sheet11.Cells(17, 3).Value

  Workbooks(wb).Sheets(summ).Range(summ_rng1).......

Where summ_rng1 = "A5:L10"

I have done this same thing for the workbooks and sheets in my code and it works fine, but when I try to replace the range reference with the variable summ_rng1 it does not work.

Any idea on how to get the code to run with the range value as a variable, like that above? Thanks for the help!

Answer 1

Your code is working for me. I think it is related to your wb object, which may contain the workbook itself, rather than the name of the workbook. Try this :

Sub testSub()
Dim myRange As String
Dim wb As Workbook
Set wb = ThisWorkbook

myRange = wb.Sheets(1).Cells(1, 1)

wb.Sheets(1).Range(myRange).Select
End Sub