下标超出范围，单元格值包含图纸参考

Question

I get this message with the following block of code. I know I'm not defining my range correctly but I'm a bit lost. Thanks!

 Sub clean_data()


Dim Preliminary_MTM As Worksheet
Dim Sheetlink As String

Sheetlink = Worksheets("Input for model").Range("E17").Value

Set Preliminary_MTM = Sheets(Sheetlink)

Preliminary_MTM.Activate

Answer 1

Based on your comment that the contents of cell "E17" is exactly Worksheets("Preliminary MTM Q1") then you would have to have a worksheet named "Worksheets("Preliminary MTM Q1")" (ie that's what you would see on the worksheet tab in your Excel file) and my guess is you don't have one with that name. As a matter of fact, you can't have a worksheet with that name because it's too long:

What you want in E17 is simply Preliminary MTM Q1 so that when you reference it in this code:

Set Preliminary_MTM = Worksheets(Worksheets("Input for model").Range("E17").Value2)

it accesses the contents of that cell and looks for the worksheet named there.

Note: I've changed .Value for .Value2 . .Value2 gives you the completely unformatted text in the cell, while .Value will return formatting information - this can cause problems.

Note: I've reduced the code to the one line because that's all that's necessary. If you're actually using the variable sheetlink elsewhere, then you'll need to include that.