Find Excel Sheet som Application.GetOpenFilename

Du ku bruge en Userform med en Listbox a la:

Private Sub ListBox1_Change()
  MsgBox ListBox1.Text
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Dim i
  For i = 1 To ThisWorkbook.Sheets.Count
      ListBox1.AddItem ThisWorkbook.Sheets(i).Name
  Next
End Sub

Hej

Tak for dit indspark, men det var ikke helt det jeg var på udkik efter.

Det jeg har brugfor er, at en bruger midt i en macro bliver promptet for at vælge/udpege et sheet. Altså at koden standser og venter på at et valg bliver foretager.

Jeg kan desværre ikke helt få din kode til at flyde sådan, men tak alligevel.

Så er det fordi du ikke har prøvet hårdt nok, hehe!! ;-)

Du har oprettet en Userform1 med en ListBox1 på og skrevet de to procedurer, right?

På det sted i din makro, hvor du ønsker at spørge brugeren, indsætter du blot:

UserForm1.Show

og vupti - så popper userformen frem og venter på input før makro kører videre...

Kan man overvåge en tråd uden at skrive en kommentar?