'------------------------------------------------------------------------------------
Public Function kollaBlad(Wb As Excel.Workbook, NAMN As String) As Boolean
'------------------------------------------------------------------------------------
' Syfte: Kontrollera namn på Excellblad
' Tar emot: Namnet på excel dokumentet och önskat namn på bladet.
' Returnerar: En boolean.
' Notering: Kontrollerar så att namnet som angets inte redan finns i dokumentet.
Dim Ws As Worksheet
Dim lngCount As Long
lngCount = 1
Dim x As Boolean
x = True
For Each Ws In Wb.Sheets
If (Ws.Name = NAMN) Then
x = False
End If
Next Ws
kollaBlad = x
End Function