Dealing with sheets codenames

Hello

I am trying to write some code in VB that will be able to function right in some different sheets, that I dont know their name in advance (the user can duplicate sheets using a macro). First, after a long time of googling I still havent found a decent way to retrieve the active sheet Codename from which I called the function (from a button).

Next, even if I knew the Codename of the current sheet, how do I use it inside the code, for example, replacing:

Worksheets("somename").Range("A1").Value
to
[variable].Range("A1").Value ?

Is it possible?

thanks

Hello sprites. It's not clear what you are looking for. Could you post a copy of your file with a detailed explanation of what you want to do? It would be easier to help if we could see what you're working with.

Hi,

I cannot upload the original file to the net, so heres a quick and simplified example of what I'm trying to do:

UsingCodeName.xlsm

Assuming I don't know the name/codename of the sheet in advance to write it inside the code, how can I manipulate the current sheet codename to do all sort of actions in the sheet? (pulling a number from a known sheet in the example here)

Thanks for the help

You can refer to the current sheet that is visible as the "ActiveSheet" regardless of its name or Codename. If you want to run a macro on the visible sheet, just refer to it as the 'ActiveSheet'. If you want to run the same macro on all the sheets, you can use a loop similar to this:

Sub Test()
    Dim ws As Worksheet
    For Each ws In Sheets
        With ws
            'your code using dot notation
        End With
    Next ws
End Sub

When you loop through all the sheets, you don't need to know their names because they are accessed using the variable 'ws'. I hope this helps.

I ended up using some of you tips and just using:

shtname = ActiveSheet.Name

and then just refering to

Sheets(shtname)

whenever I needed and it works just fine, thanks for the help!