Dynamic Hyperlink

Hi All,

I just want to make Subaddress for the below hyperlink code to be dynamic ie call input value from variant.

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "FWC!A1", TextToDisplay:="Back"

.

Instead of FWC,i want to call it from the below variant. ie replace FWC with SheetName

Dim SheetName As String
SheetName = ActiveSheet.Name

Instead of A1, i want to call it from the below variant. ie replace A1 with CelAddres

Dim CelAddres As String
CelAddres = ActiveCell.Address

Both the Variant SheetName and CelAddres are stored in while the macro is running in another sheet in same workbook.

Thanks in advance for your help.

Regards,

Nazim