VBA add hyperlink to specific sheet - reference isn't valid

[mysticmario]

Hi I tried multiple versions of this code to create a proper hyperlink to another sheet in the same workbook:

lr = Sheets("PROJEKTY ZAKOŃCZONE").Cells(Rows.Count, "F").End(xlUp).Row
Dim wb As Workbook
Set wb = ThisWorkbook
Dim adressn As String
adressn = "Godziny" + Left(ans2, 5)
Dim ws As Worksheet
Set ws = wb.Worksheets(adressn)
Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F").Hyperlinks.add Anchor:=Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F"), Address:="", SubAddress:="ws", TextToDisplay:="Open"

The code works to a point where it shoudl assign address to go to

When u click the link all I get is:

I'm loosing my mind with this one
variable seen as ans2 is defined earlier in the code and works fine. In the picture u can see debug printed sheet name in cell F41 that is the exact name of the sheet I'm trying to go to.
Can anyone help?

 

[shknbk2]

The SubAddress needs a sheet name and a cell reference (e.g., "Godziny03026!A1"). Since adressn is the name, you don't need to use ws in the hyperlink. If you don't use ws later in the code (it was only for the hyperlink), you can get rid of it.

If A1 is not your preferred link cell, you can change it.

lr = Sheets("PROJEKTY ZAKOŃCZONE").Cells(Rows.Count, "F").End(xlUp).Row
Dim wb As Workbook
Set wb = ThisWorkbook
Dim adressn As String
adressn = "Godziny" + Left(ans2, 5)
Dim ws As Worksheet
Set ws = wb.Worksheets(adressn)
Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F").Hyperlinks.add Anchor:=Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F"), Address:="", SubAddress:=adressn & "!A1", TextToDisplay:="Open"

 

[mysticmario]

The SubAddress needs a sheet name and a cell reference (e.g., "Godziny03026!A1"). Since adressn is the name, you don't need to use ws in the hyperlink. If you don't use ws later in the code (it was only for the hyperlink), you can get rid of it.

If A1 is not your preferred link cell, you can change it.

lr = Sheets("PROJEKTY ZAKOŃCZONE").Cells(Rows.Count, "F").End(xlUp).Row
Dim wb As Workbook
Set wb = ThisWorkbook
Dim adressn As String
adressn = "Godziny" + Left(ans2, 5)
Dim ws As Worksheet
Set ws = wb.Worksheets(adressn)
Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F").Hyperlinks.add Anchor:=Sheets("PROJEKTY ZAKOŃCZONE").Cells(lr + 1, "F"), Address:="", SubAddress:=adressn & "!A1", TextToDisplay:="Open"

thank you, of course i tried the same thign with a wrong syntax
i had subaddress:="adressn!A1"
Thank you again
that fixed the problem instantly