Look up

[Greg B]

I want to have a macro that will look for the corresponding sheet to the
reference in cell "a2"

Is this possible and how is it possible

Thanks

Greg

 

[R.VENKATARAMAN]

try something like this code(the name of the sheet is in A2 of sheet1)

Worksheets(Worksheets("sheet1").Range("a2").Value).Activate

 

[Guest]

Hi Greg,

Try this macro:

Dim ws as Worksheet

For Each ws in ThisWorkbook.Sheets
If (ws.Name = ThisWorkbook.ActiveSheet.Range ("A2") then
' do something here if the worksheet exists
Exit for
end if
Next ws

 

[Guest]

Nice solutions, but it will break if the sheet name in A2 doesn't exist

 

[Dave Peterson]

You could add bit of error checking:

On error resume next
Worksheets(Worksheets("sheet1").Range("a2").Value).Activate
if err.number <> 0 then
msgbox "That sheet doesn't exist
err.clear
end if

 

[Greg B]

Thank you to everyone who have helped me

Greg

You could add bit of error checking:

On error resume next
Worksheets(Worksheets("sheet1").Range("a2").Value).Activate
if err.number <> 0 then
msgbox "That sheet doesn't exist
err.clear
end if