Din løsning virker også perfekt til opgaven Søren
Tak for den
"Søren Remfeldt" <sremo@post.tele.dk> wrote in message
news:3b697235$0$79877$edfadb0f@dspool01.news.tele.dk...
> Indsæt følgende linie :
> Columns("A:A").Delete Shift:=xlToLeft
> så skulle det virke !
> mvh
> Søren
>
> "Jens Andersen" <til@infojens.dk> skrev i en meddelelse
> news:3b69709d$0$2560$edfadb0f@dspool01.news.tele.dk...
> > Hvordan fjerner jeg Kulonne A ?
> >
> > Min kode ser sådan ud nu
> >
> > Option Explicit
> > Dim Ex As Excel.Application
> >
> > Private Sub Workbook_Open()
> >
> > Set Ex = New Excel.Application
> > Ex.DisplayAlerts = False
> >
> > Sheets("ark1").Activate
> > If ActiveSheet.Range("a1").Value = "1" Then
> > ' Her skal den fjerne Kulonne A
> > MsgBox "Der stod 1", , "Test"
> > End If
> >
> > End Sub
> >
> >
>
>