Failing To Delete Cell Based on Its Address

[Ark68]

I am receiving an "Invalid procedure call or argument." error as I am trying to delete the cell at P1 (an address of $T$4) and shift the cells below up.

wshvar.Cells(p1).Delete xlUp

 

[VoG]

Assuming that p1 is a string try

wshvar.Range(p1).Delete shift:=xlShiftUp

 

[Jonmo1]

The Cells Property has 2 arguments,
Cells(Row#, Column#)

I think you want to use Range instead
wshvar.Range(p1).Delete

 

[Ark68]

I think ...

wshvar.cells.range(p1).delete xlup

works.