Activate sheet on cell value

[adamsm]

Hi anyone,

How could I write a macro code that would activate the sheet "my" if the cell A1 of the sheet as the text "My" and activate sheet "Sheet" if A1 of the active sheet has "My".

And if nothing is in cell A1. remain in the same sheet?

Any help on this would be kindly appreciated.

Thanks in advance.

 

[njimack]

If Range("A1")<> "" Then Sheets(Range("A1").Value).Select

 

[adamsm]

Thanks for the help.

In the same sheet how could I create a double click event procedure so that when the cell I10 is double clicked it would copy the text "My" and paste in cell A1 of "New" sheet.

Any help would be kindly appreciated.

 

[njimack]

Paste the following into the module of the sheet in question.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$I$10" Then Sheets("New").Range("A1") = Range("A1")
End Sub

 

[adamsm]

Thanks for the code. But your code does not copy the text "My".

What may be the reason for this?

 

[njimack]

Thanks for the code. But your code does not copy the text "My".

What may be the reason for this?

I assumed this was related to your previous question, so the code I posted copied the contents of A1 to another sheet. Try the following:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$I$10" Then Sheets("New").Range("A1") = "My"
End Sub