Let's say I have the following to delete the contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named range -
say "last_column" which is the number 67. How would I
change the above code to referenc the number in the range
vs manually edititing the code? Looking for same help
with row (say "last_row" = 100)

Fatir,

Try this

'-----
Option Explicit

Sub abc()
With Range("lastColumn")
.Offset(0, 1).Resize(Rows.Count, (Columns.Count - .Column)).Delete
End With
End Sub
'-----

HTH
Anders Silven

"Fatir Zelen" skrev i meddelandet
...
Let's say I have the following to delete the contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named range -
say "last_column" which is the number 67. How would I
change the above code to referenc the number in the range
vs manually edititing the code? Looking for same help
with row (say "last_row" = 100)

Got a compile error at the .Column)) part - didn't use
option explicit or sub since inside existing code but I
dont think that should matter.

Was that a typo Bob?
-----Original Message-----
Fatir,

Try this

'-----
Option Explicit

Sub abc()
With Range("lastColumn")
.Offset(0, 1).Resize(Rows.Count, (Columns.Count -
.Column)).Delete
End With
End Sub
'-----

HTH
Anders Silven

"Fatir Zelen" skrev
i meddelandet
...
Let's say I have the following to delete the contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named
range -
say "last_column" which is the number 67. How would I
change the above code to referenc the number in the
range
vs manually edititing the code? Looking for same help
with row (say "last_row" = 100)



.

No typo, and I'm not Bob.

It looks like a line break has been inserted somewhere along the line.
".Column)).Delete" belongs to the line above it.

Try the macro by itself to make sure it works before you enter it into your
existing code

Regards
Anders Silven


"Fatir Zelen" skrev i meddelandet
...
Got a compile error at the .Column)) part - didn't use
option explicit or sub since inside existing code but I
dont think that should matter.

Was that a typo Bob?
-----Original Message-----
Fatir,

Try this

'-----
Option Explicit

Sub abc()
With Range("lastColumn")
.Offset(0, 1).Resize(Rows.Count, (Columns.Count -
.Column)).Delete
End With
End Sub
'-----

HTH
Anders Silven

"Fatir Zelen" skrev
i meddelandet
...
Let's say I have the following to delete the contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named
range -
say "last_column" which is the number 67. How would I
change the above code to referenc the number in the
range
vs manually edititing the code? Looking for same help
with row (say "last_row" = 100)



.

Sorry the name error.

Here is what I have and it still doesn't work, even on its
own.

Sub remove_blanks()
Sheets("Main").Select
With Range("End_Col")
.Offset(0, 1).Resize(Rows.Count, (Columns.Count -
.Column)).Delete (this is actually in the live above)
End With
End Sub

End_Col is the named range with a value of 66 so it would
delete columns 67-256


Any sugggestions??

-----Original Message-----
No typo, and I'm not Bob.

It looks like a line break has been inserted somewhere
along the line.
".Column)).Delete" belongs to the line above it.

Try the macro by itself to make sure it works before you
enter it into your
existing code

Regards
Anders Silven


"Fatir Zelen" skrev
i meddelandet
...
Got a compile error at the .Column)) part - didn't use
option explicit or sub since inside existing code but I
dont think that should matter.

Was that a typo Bob?
-----Original Message-----
Fatir,

Try this

'-----
Option Explicit

Sub abc()
With Range("lastColumn")
.Offset(0, 1).Resize(Rows.Count,
(Columns.Count -
.Column)).Delete
End With
End Sub
'-----

HTH
Anders Silven

"Fatir Zelen"
skrev
i meddelandet
...
Let's say I have the following to delete the
contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named
range -
say "last_column" which is the number 67. How would
I
change the above code to referenc the number in the
range
vs manually edititing the code? Looking for same
help
with row (say "last_row" = 100)



.


.

Firts you have a hyphen instead of a continuation caharacter. An, if end_col
is 66 it is not a named range as a range -s C6 or C6:C100. You might try
this

Sub remove_blanks()
Sheets("Main").Select
With Range("C" &End_Col)
.Offset(0, 1).Resize(Rows.Count, (Columns.Count _
.Column)).Delete (this is actually in the live above)
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Fatir Zelen" wrote in message
...
Sorry the name error.

Here is what I have and it still doesn't work, even on its
own.

Sub remove_blanks()
Sheets("Main").Select
With Range("End_Col")
.Offset(0, 1).Resize(Rows.Count, (Columns.Count -
.Column)).Delete (this is actually in the live above)
End With
End Sub

End_Col is the named range with a value of 66 so it would
delete columns 67-256


Any sugggestions??

-----Original Message-----
No typo, and I'm not Bob.

It looks like a line break has been inserted somewhere
along the line.
".Column)).Delete" belongs to the line above it.

Try the macro by itself to make sure it works before you
enter it into your
existing code

Regards
Anders Silven


"Fatir Zelen" skrev
i meddelandet
...
Got a compile error at the .Column)) part - didn't use
option explicit or sub since inside existing code but I
dont think that should matter.

Was that a typo Bob?
-----Original Message-----
Fatir,

Try this

'-----
Option Explicit

Sub abc()
With Range("lastColumn")
.Offset(0, 1).Resize(Rows.Count,
(Columns.Count -
.Column)).Delete
End With
End Sub
'-----

HTH
Anders Silven

"Fatir Zelen"
skrev
i meddelandet
...
Let's say I have the following to delete the
contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named
range -
say "last_column" which is the number 67. How would
I
change the above code to referenc the number in the
range
vs manually edititing the code? Looking for same
help
with row (say "last_row" = 100)



.


.

Do you mean firts_row and last_row?

Sheets("Main").Select
Application.GoTo Reference:="C" & first_row & ":C25" & last_row
Selection.Delete Shift:=xlToLeft


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Fatir Zelen" wrote in message
...
Let's say I have the following to delete the contents of
Column 68 to 256.

Sheets("Main").Select
Application.GoTo Reference:="C68:C256"
Selection.Delete Shift:=xlToLeft

but instead I want the reference to be from a named range -
say "last_column" which is the number 67. How would I
change the above code to referenc the number in the range
vs manually edititing the code? Looking for same help
with row (say "last_row" = 100)