Gemme regnearkets filnavn

ThisWorkbook.Name

eller ActiveWorkbook.Name

Du kan også gøre det på en anden måde.

Du kan diff. en varibel som workbook således: (ligesom jeg gjorde i forrige spørgsmål)

Sub EtEllerAndet()
    Dim wbActive As Workbook
    Set wbActive = ActiveWoorkbook  (eller ThisWorkbook)

senere kan du så henvise til f.eks. wbActive.Activate
Men det rigtig smarte ligger at lave kode uden Activate og Select.
Du kan således hoppe direkte i en celle f.eks. sådan: wbActive.Sheets("Ark1").Range("A1").Value

Du kan jo også bare nappe den del af ThisWorkbook.FullName, der ligger til højre for sidste "\" - det vil være filnavnet..
(vha InStr() og Mid())

Sub GodtEksempel()
    Dim wbActive As Workbook
    Dim wksData As WorkSheet
    Dim rCell As Range
    ' Set dine object variabler = noget
    Set wbActive = ActiveWoorkbook
    Set wksData = wbActive.Sheets("Ark1")
    Set rCell = wksData.Range("A1")

    ' Udfør dine jobs
    ' Div kode

    ' Clean up i windows memory
    Set rCell = Nothing
    Set wksData = Nothing
    Set wbActive = Nothing
End Sub

Martin *ss* vil da være spild af kodelinier og værdifuld tid *ss*

I princippet er jeg enig med flemming, men i dette tilfælde er der da ingen grund til at kode
ThisWorkbook.Activate må da være godt, da ThisWorkBook altid refererer til den Workbook der indeholder koden, der kører.

Du har i helt ret Bak, dog der er set eksempler på, hvor ThisWorkbook har givet fejl. Derfor gemmer jeg af læring altid ThisWorkbook i en variabel.

Jaeh, Flemming, det kan måske ske hvis koden kalder en kode i et andet regneark.
Det må testes..... :-)

Kan ikke lige huske det - men løb på problematikken i foråret engang - hva' hulen var det jeg lavede dengang....*gg*

Jeg har Brugt Flemmings ActiveWorkbook.Name, og det virker som det skal. Tak