If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

I cannot repeat your error with Excel2002.
Maybe you have some code doing this that you have forgotten/missed ?

NickHK

"Kanga 85" wrote in message
...
If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

NickHK,
I have Excel2000. I cannot find any code that would cause this problem.


"NickHK" wrote:

I cannot repeat your error with Excel2002.
Maybe you have some code doing this that you have forgotten/missed ?

NickHK

"Kanga 85" wrote in message
...
If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

If you open excel in safe mode

Windows start button|Run
type:
excel /safe

And then file|open your workbook

Then test it, what happens?

Kanga 85 wrote:

NickHK,
I have Excel2000. I cannot find any code that would cause this problem.

"NickHK" wrote:

I cannot repeat your error with Excel2002.
Maybe you have some code doing this that you have forgotten/missed ?

NickHK

"Kanga 85" wrote in message
...
If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.




--

Dave Peterson

Dave,
'Excel /safe' gave me a 'Please wait while windows configures
MicrosoftOffice XP Professional ......'.

Then 'The feature you are trying to use is on a CD-Rom...'.

Inserted OfficeXP Pro CD and got the same message as above 'Please wait
while.....'.

Excel then loaded in safe mode. I loaded my spreadsheet and got the
standard 'Macros disabled....'. Bypassed this and deleted one column to
find that the same problem occured. Cell IV3 turns up with a border
linestyle (actually the top border, a style I would not normally use). I
then cannot delete a column unless I first remove remove the linestyle.
i.e., Safe mode had no apparent effect, other than to disable macros.

I too cannot duplicate this problem on blank spreadsheets, so it must be a
problem inherent in the operational spreadsheet only.

Thanks,

"Dave Peterson" wrote:

If you open excel in safe mode

Windows start button|Run
type:
excel /safe

And then file|open your workbook

Then test it, what happens?

Kanga 85 wrote:

NickHK,
I have Excel2000. I cannot find any code that would cause this problem.

"NickHK" wrote:

I cannot repeat your error with Excel2002.
Maybe you have some code doing this that you have forgotten/missed ?

NickHK

"Kanga 85" wrote in message
...
If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.




--

Dave Peterson

A worksheet containing this phenomenom is posted at:
http://www.freefileupload.net/file.p.../IVProblem.xls

"Kanga 85" wrote:

If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

Well, I can't say why Excel is creating this border; some glitch in the WS I
suppose.
It seems that the line is an xlInsideHorizontal, but how you create one of
those is beyond me; I can only add a xlEdgeBottom ???
But you can permenantly get rid of it with this:

Private Sub CommandButton1_Click()
'Create a border line, so there is something to change
Columns("IU:IU").Delete Shift:=xlToLeft

'Change the borders
With Rows("46:47")
.Borders(xlInsideHorizontal).LineStyle = xlNone
' .Borders(xlEdgeBottom).LineStyle = xlNone
End With

'Test
Columns("IU:IU").Delete Shift:=xlToLeft

End Sub

NickHK

"Kanga 85" wrote in message
...
A worksheet containing this phenomenom is posted at:

http://www.freefileupload.net/file.p.../IVProblem.xls

"Kanga 85" wrote:

If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with
a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft
Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that
seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

Thanks Nick


NickHK" wrote:

Well, I can't say why Excel is creating this border; some glitch in the WS I
suppose.
It seems that the line is an xlInsideHorizontal, but how you create one of
those is beyond me; I can only add a xlEdgeBottom ???
But you can permenantly get rid of it with this:

Private Sub CommandButton1_Click()
'Create a border line, so there is something to change
Columns("IU:IU").Delete Shift:=xlToLeft

'Change the borders
With Rows("46:47")
.Borders(xlInsideHorizontal).LineStyle = xlNone
' .Borders(xlEdgeBottom).LineStyle = xlNone
End With

'Test
Columns("IU:IU").Delete Shift:=xlToLeft

End Sub

NickHK

"Kanga 85" wrote in message
...
A worksheet containing this phenomenom is posted at:

http://www.freefileupload.net/file.p.../IVProblem.xls

"Kanga 85" wrote:

If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with
a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft
Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that
seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column
appear
when I might have expected a totally blank new column?

Thanks for any help/advice.