What's wrong with this?

[kentuckybronco]

Sub GetData()
Dim SelectSheet As String
SelectSheet = InputBox("Enter sheet name")
Workbooks("Report").Sheets("Main") = SelectSheet
End Sub

I'm getting a "subscript out of range" error for line 4.

 

[Jonmo1]

Welcome to the board...

Try
Workbooks("Report.xls").Sheets("Main").Name = SelectSheet

Hope that helps.

 

[VoG]

What is the code meant to do?

 

[kentuckybronco]

I'm trying to get my current workbook to emulate the text from another workbook. However, there are so many sheets on the other workbook that I want to be able to select the worksheet name. I'm now no longer getting this error, but I'm still not able to get the result I wanted. I think it's an error in theory, unfortunately...