Scroll icons in a cell

[Dave Ellis]

What are the little yellow scroll icons that appear in some cells after a VB
macro has been run? What are they indicating, and can I stop them from
appearing, or delete them (as they obscure some of the cell contents)?

 

[Gord Dibben]

Post the macro that produces the little yellow scroll icons.


Gord Dibben MS Excel MVP

 

[Dave Ellis]

Here is the macro as requested:

Sub Letter()
'
' Letter Macro

' Keyboard Shortcut: Ctrl+Shift+L
'
Sheets("Template").Select
Range("B6").Select
ActiveSheet.Paste
Selection.TextToColumns Destination:=Range("B6"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(14, 1))
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Selection.ColumnWidth = 50.86
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With

'Add Yes or No to telephone and email permission fields"
Range("B10").Select
Selection.Copy
Range("A46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Range("A47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A44").Select
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A45").Select
Application.CutCopyMode = False
Selection.Copy
Range("B12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("B6:B19").Select
Selection.Copy
Sheets("Directory").Select

Cells(1, 1).Select 'Locate next empty row'

Do Until ActiveCell = "" 'Look for empty cell in column A'
Selection.Offset(1, 0).Select
Loop

Selection.Offset(1, 1).Select
ActiveSheet.Paste
Selection.Copy
Selection.Resize(1, 1).Select
Selection.Offset(-1, 0).Select
Selection.PasteSpecial Paste:=xlAll, Transpose:=True
Selection.Resize(1, 1).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Selection.ClearContents
Selection.Resize(1, 1).Select

Range("A1").Select ' Go to top of page to get today's date '
Selection.Copy

Cells(1, 1).Select 'Locate next empty row'

Do Until ActiveCell = "" 'Look for empty cell in column A'
Selection.Offset(1, 0).Select
Loop

'Then paste the value of today's date in column A of this entry'

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save


Sheets("Template").Select
Range("A3:B28").Select
Selection.Copy
Range("A1").Select
End Sub

Dave

 

[Gord Dibben]

I see nothing that would place yellow scroll icons unless your original
ActiveSheet.Paste put them there.

I assume you have pre-copied something before running Letter Macro

Have you stepped through the macro to see when the yellow icons appear?

Are you sure these are scrollable icons in the cell?

Maybe just error-checking symbols?


Gord

 

[Dave Ellis]

Gord:

Yes, I precopy information that comes from a web site form to my email then
use this workbook to permanently record each entry with a date stamp on
successive lines on the "Directory" sheet.

On stepping through the macro, the scrolls all seem to pop up together at
the end of the macro run where the VB code is:
ActiveWorkbook.Save


Sheets("Template").Select
Range("A3:B28").Select
Selection.Copy
Range("A1").Select

And yes, they appear in certain, but not all, cells that have been used by
the macro as it executes.

After playing with it a while, I see that when I double click on any one of
them the Microsoft Script Editor opens (clue!)

But why? what is it for? The workbook with the macros work fine without me
taking any action.

Thanks for helping out on this. I do appreciate it.

Dave

 

[Gord Dibben]

Which version of Excel are you running?

I'm leaning toward Smart Tags(which I have never used) in 2003 or 2007.

Don't know if 2010 still supports these.

Hopefully someone familiar with these can lend a hand.


Gord

 

[Dave Ellis]

Gord:

I am still on 2003.

Dave

Which version of Excel are you running?

I'm leaning toward Smart Tags(which I have never used) in 2003 or 2007.

Don't know if 2010 still supports these.

Hopefully someone familiar with these can lend a hand.


Gord