Excel vba array remove first

Public Sub DeleteElementFromArray(ByRef pArray As Variant, ByVal pIndex As Long)
    Dim index As Integer
    If pIndex >= LBound(pArray) And pIndex <= UBound(pArray) Then
        For index = pIndex + 1 To UBound(pArray)
            pArray(index - 1) = pArray(index)
        Next
        If UBound(pArray) - LBound(pArray) > 0 Then
            ReDim Preserve pArray(UBound(pArray) - LBound(pArray) - 1)
        Else
            ReDim pArray(0)
        End If
    End If
End Sub

Similar codes

0 vote205 views1 answer
Excel vba prevent saving workbook
VBA
0 vote191 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote201 views1 answer
Vba remove the first character of string
VBA
0 vote202 views1 answer
How to use if condition in time vba
VBA
0 vote178 views1 answer
Vbnet add new ecel sheet
VBA
11 votes260 views1 answer
Excel vba How to URL encode a string
VBA
0 vote203 views1 answer
Get current url vb.net
VBA
0 vote189 views1 answer
Vba createparameter null
VBA
0 vote189 views1 answer
Vb net check if file exists
VBA
0 vote209 views1 answer
Add text to Shape VBA
VBA