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

31 votes417 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote324 views2 answers
Excel vba number format file size
VBA
0 vote314 views1 answer
How to enter Vbox manage commands
VBA
0 vote265 views1 answer
Vba select file in folder
VBA
0 vote299 views1 answer
Excel vba chrw max value
VBA
0 vote289 views1 answer
Label de tableau dans des label.text en VBA
VBA
1 vote324 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote316 views1 answer
Vba random number
VBA
0 vote280 views1 answer
Docker vboxmanage not found
VBA
0 vote290 views1 answer
Vba dictionary clear
VBA