Tjek om der er en værdi i af celleområderne.

Utestet:
set rangess = union("SaVA","Wiva","EsVa")
If IsEmpty.rangess = False Then Call Procedure

Den melder fejl. Type mismatch. Desværre

Jeg prøver ligenu følgende:
  Dim SaVA, WiVa, EsVa As Range
 
Set SaVA = Workbooks("Schneider master 2019").Worksheets("Schneider og Sarel ").Range("B258:B795")
Set WiVa = Workbooks("Schneider master 2019").Worksheets("Wibe, Canalis, Thorsman og KNX").Range("b72:b345")
Set EsVa = Workbooks("Schneider master 2019").Worksheets("Schneider Electric Buildings").Range("b40:b122")

        SaVA.Select
      If IsEmpty(Selection.Value) = False Then Call Varekodning
        WiVa.Select
      ElseIf IsEmpty(Selection.Value) = False Then Call Varekodning
        EsVa.Select
      ElseIf IsEmpty(Selection.Value) = False Then Call Varekodning

Men den siger at jeg har else without if, og det forstår jeg ikke.

If SaVA.value + WiVa.value + EsVa.value > 0 then Call et-elller-andet

If xxx then
    din kode
else if
    din kode
else if
    din kode
end if


Jan

Prøv:

Jeg endte med at bruge funktionen countA, til at tælle om der var indhold i cellerne