Announcement

Collapse
No announcement yet.

Shorten code to 1 line

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Shorten code to 1 line

    Does anyone know how to shorten this down to 1 line?

    Code:
        objExcel.Columns("C:C").Select
        objExcel.Application.Selection.Cut
        objExcel.Columns("B:B").Select
        objExcel.Selection.Insert -4161

  • #2
    Re: Shorten code to 1 line

    2 lines:

    Code:
    objExcel.Columns("C:C").Cut
    objExcel.Columns("B:B").Insert -4161
    Tom Jones
    MCT, MCSE (2000:Security & 2003), MCSA:Security & Messaging, MCDBA, MCDST, MCITP(EA, EMA, SA, EDA, ES, CS), MCTS, MCP, Sec+
    PhD, MSc, FIAP, MIITT
    IT Trainer / Consultant
    Ossian Ltd
    Scotland

    ** Remember to give credit where credit is due and leave reputation points where appropriate **

    Comment


    • #3
      Re: Shorten code to 1 line



      Thanks!

      Comment

      Working...
      X