warum klappt dieses nicht?
Sub Header()
Dim wrsAlleWorksheets As Worksheet
Dim blnCoorVorhanden As Boolean
blnCoorVorhanden = False
Workbooks("ProbecardDesign.xls").Select
For Each wrsAlleWorksheets In Workbooks("ProbecardDesign.xls")
' Hiersteigt er immer aus
If wrsAlleWorksheets.Name = "Coordinates" Then
fpc_header.Show
blnCoorVorhanden = True
End If
Next wrsAlleWorksheets
If blnCoorVorhanden = False Then
ModulFM.FM0082
End If
End Sub
Gruß
Swen