VBA Codes written for QC Automation for Excel

 

Sub AppendHyphen()

Dim c As Range

For Each c In ActiveSheet.UsedRange

If IsNumeric(c.Value) = True Then c.Value = "'" & c.Value

Next

End Sub

Sub Range_Example4()

Range("A1").End(xlDown).Select

End Sub

Sub Range_Example6()

ActiveSheet.UsedRange.Select

End Sub