opmaak behouden

[ronnie123]

beste forum leden
heb deze vraag al een keer gesteld maar het is nog steeds een puinhoop weet ook niet wat ik fout doe maar het gaat om het volgende.
ik gebruik dit om het blad te verzenden

Sub Mail_Range()
  Application.ScreenUpdating = False

  With Workbooks.Add
    ThisWorkbook.Sheets("stand verzenden").Range("A3:K109").SpecialCells(xlCellTypeVisible).Copy .Sheets(1).Range("A1")
    .SaveAs Environ$("temp") & "\DOM"
    c0 = .FullName
    .Close False
  End With

na onvangst zijn de kolombreedtes veranderd is hier wat aan te doen
groetjes ronnie

 

[snb]

Sub Mail_Range()
  Application.ScreenUpdating = False

  ThisWorkbook.Sheets("stand verzenden").copy
  With activeworkbook
      .sheets(1).Range("1:2").delete
      .SaveAs Environ("temp") & "\DOM"
      c0 = .FullName
      .Close False
  End With
End Sub

 

[ronnie123]

hallo snb
bedankt voor je reactie
dit ziet er goed uit,maar had nog een vraag
hoe kan ik het bereik van het blad er tussen zetten bv. A4:K77
grt ronnie