Selecting variable sheet

[zwans]

Hi,

In cel E7 there is the name of one of my sheets.
Now i want to select this sheet by a macro.

I tried:

Range("E7").Select
Sheets(ActiveCell.Value).Select

but this won't work.
Does anyone know how i can solve this problem?

With kind regards,

Ronald Buikema

 

[machopicho]

Try:

nm = Range("E7")
Sheets(nm).Activate

 

[zwans]

Try:

nm = Range("E7")
Sheets(nm).Activate

This is not working. It gives a foul on the second line...

Anyone who knowes how to solve the problem?

With kind regards,

Ronald Buikema

 

[villy]

Try..

Sub iopen()
Worksheets(Range("E7").Text).Activate
End Sub

works for me.

 

[machopicho]

I tested my macro and it works well.
The name in E7 must be eguals to the name of sheet. Check this!

 

[zwans]

Ok, i checked that and it's ok.

Ik get the following error:

Error 9

The subscript is out of range

My code is the following:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 25-7-2011 door Ronald Buikema.
'
UserForm1.Show
Sheets("Informatie").Select
Range("F6").Select
Selection.Copy
nm = Range("E6")
Sheets(nm).Activate
Range("P1").Select
Selection.Paste
Application.CutCopyMode = False
'
End Sub

Can someone help me with this?

With kinds regards,

Ronald Buikema

 

[villy]

Ok, i checked that and it's ok.

Ik get the following error:

Error 9

The subscript is out of range

My code is the following:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 25-7-2011 door Ronald Buikema.
'
UserForm1.Show
Sheets("Informatie").Select
Range("F6").Select
Selection.Copy
nm = Range("E6")
Sheets(nm).Activate
Range("P1").Select
Selection.Paste
Application.CutCopyMode = False
'
End Sub

Can someone help me with this?

With kinds regards,

Ronald Buikema

Try this...

' Macro1 Macro
' De macro is opgenomen op 25-7-2011 door Ronald Buikema.
'
UserForm1.Show
Sheets("Informatie").Select
Range("F6").Select
Selection.Copy
nm = Range("E6")
Sheets(nm).Activate
Range("P1").Select
Activesheet.Paste
Application.CutCopyMode = False
'
End Sub

 

[villy]

This also works...

Sub iopen()
UserForm1.Show
Sheets("Informatie").Select
Range("F6").Select
Selection.Copy
Worksheets(Range("E6").Text).Activate
Range("P1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[machopicho]

Try:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 25-7-2011 door Ronald Buikema.
'
UserForm1.Show
nm = Sheets("Informatie").Range("E6")
Sheets("Informatie").Range("F6").Copy Destination:=Sheets(nm).Range("P1")

End Sub