For Each ws In ActiveWorkbook.Worksheets If ws.Name = "Ark2" Then MsgBox " ark2 eksisterer" Worksheets(ws.Name).Activate Exit For End If Next ' her kan du så lave koden for din celle, eller er det et navngivet område
' Find navngivet ark For Each ws In ActiveWorkbook.Worksheets If ws.Name = "Ark2" Then Findes = True: Exit For Next If Findes Then MsgBox " ark2 eksisterer" Else MsgBox " ark2 eksisterer IKKE" End If Findes = False
' find navngivet celle For Each na In ActiveWorkbook.Names If na.Name = "Retailpriser" Then Findes = True: Exit For Next If Findes Then MsgBox " Retailpriser eksisterer" Else MsgBox " Retailpriser eksisterer IKKE" End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.