Testing Default VB Code

[r1c1]

Attempt 1

sub thisCodeShouldHighlight()

Dim isWorking

isWorking = true

end sub

 

[r1c1]

Yay!!! it works.

Now onwards, you can just use [code] & [/code] to post VBA Code. VB is the default code language.


Many thanks to @Hui for the suggestion.

 

[Luke M]

Can we change the text that appears above reply box then, to relay this info?

 

[Luke M]

Testing comment indenture level

Sub GetUniqueList()
'Ctrl+Alt+u

    Dim rCell As Range
    Dim colUnique As Collection
    Dim sh As Worksheet
    Dim i As Long
   
    'only work on ranges
   If TypeName(Selection) = "Range" Then
       
        'create a new collection
       Set colUnique = New Collection
       
        'loop through all selected cells
       'and add to collection
       For Each rCell In Selection.Cells
            On Error Resume Next
                'if value exists, it won't be added
               colUnique.Add rCell.Value, CStr(rCell.Value)
            On Error GoTo 0
        Next rCell
       
        'make a new sheet to put the unique list
       Set sh = ActiveWorkbook.Worksheets.Add
       
        'Write the unique list to the new sheet
       For i = 1 To colUnique.Count
            sh.Range("A1").Offset(i, 0).Value = colUnique(i)
        Next i
       
        'sort with no headers
       sh.Range(sh.Range("A2"), sh.Range("A2").End(xlDown)) _
            .Sort sh.Range("A2"), xlAscending, , , , , , xlNo
       
    End If
   
End Sub

 

[r1c1]

Can we change the text that appears above reply box then, to relay this info?
View attachment 6179

Done