VBA Opsla locatie uit cel halen met variabele

[novec]

Hi

Ik heb de volgende code

Sub publish()

' publish Macro

Dim opsl As String

    Application.Goto (ActiveWorkbook.Sheets("Bron").Range("h4"))
    opsl = ActiveCell.Value
    
    Worksheets("Jaarstand").Select
    Range("B4").Activate
    ActiveCell.CurrentRegion.Select
    
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "opsl", "Jaarstand", "opsl", _
        xlHtmlStatic, "Vissen", "")
        .publish (True)
        .AutoRepublish = False
    End With
    ChDir "D:\Users\Steven\Desktop"

End Sub

De variabele Opsl is de waarde in Bron H4. Die waarde is D:\Users\Steven\Desktop
Ik wil CurrentRegion publisheren in HTML op die locatie.
Omdat de sheet door meerdere mensen gebruikt wordt wil ik mijn opslag locatie variabel maken.

Wat doe ik niet goed?

Steven

 

[OctaFish]

Er zit nogal wat fout in je code, dus ik heb 'm maar voor je aangepast.

Sub PublishPage()
Dim opsl As String, adres As String

    opsl = Sheets("Bron").Range("T13").Value & "\test.htm"
    adres = Sheets("Jaarstand").Range("B4").CurrentRegion.Address
    
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, opsl, "Jaarstand", adres, xlHtmlStatic, "Vissen", "")
        .publish (True)
        .AutoRepublish = False
    End With
    ChDir "D:\Users\Steven\Desktop"

End Sub

 

[novec]

Super man

Ik had het zonder de haakje geprobeerd maar had dus het adres niet goed benoemd.
Dank

Steven