Vba delete array element

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 vote194 views1 answer
Find if year is leap year vb
VBA
0 vote184 views1 answer
Xlbycolumns is not declared
VBA
3 votes175 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote208 views1 answer
Vba cell all borders
VBA
5 votes206 views1 answer
Excel vba first byte from INTEGER
VBA
3 votes171 views1 answer
Excel vba read registry key value
VBA
0 vote197 views1 answer
Vba search string position
VBA
1 vote173 views1 answer
Change the first item in a queue vb.net
VBA
3 votes184 views1 answer
Excel vba change format of cell
VBA
0 vote176 views1 answer
Excel vba clear filter
VBA