Messagebox als je een blad opent

[goof2808]

Hi,

Wat heb ik:
Ik heb een bestand(Excel) met drie werkbladen.
Op elk werkblad staat een verschillende versie van een hypotheekberekening.

Wat wil ik:
Om ervoor te zorgen dat men de goede versie gebruikt wil ik dat bij het openen van elk blad een messagebox verschijnt met het versienummer.
Bijvoorbeeld: "Versie 2.0 juli 2007"

Kan iemand me helpen?

Thanks,
govi

 

[Wigi]

Zie bijlage, tevens VBA code erachter.

Wigi

 

[goof2808]

Hey Wigi,

Werkt prima maar de message verschijnt niet als het bestand geopend wordt, ook dan moet de box van betreffende blad verschijnen.

govi

 

[Wigi]

Er is een Workbook_Open event in ThisWorkbook.

 

[goof2808]

Bedoel je dat het al zou moeten werken, of moet ik het aanpassen(wat me trouwens niet lukt..)

 

[Wigi]

Dit is de hele code, plak die bij ThisWorkbook:

Private Sub Workbook_Open()
    
    MsgBox Range("A1").Value
    
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    MsgBox Sh.Range("A1").Value
    
End Sub

Wigi

 

[goof2808]

Thanks, Wigi
Het werkt!