Spalte ausblenden, Inhalt löschen, Formeln beibeha

'' Makro für Button, der je nach Spaltenangabe Prozess löscht (Spalte wird ausgeblendet)
Public Sub DeletingProcess()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim f
ActiveSheet.Unprotect
f = Application.InputBox("EN: Which Process step to be deleted?" & Chr(13) & "(please enter  _
_
letter for column)" & Chr(13) & Chr(13) & "DE: Welcher Prozessschritt soll gelöscht werden?" &  _
Chr(13) & "(bitte Spaltenbezeichnung eingeben)" & Chr(13) & Chr(13), Type:=2)
Select Case True
Case f = False: Exit Sub
Case IsNumeric(f)
MsgBox "EN: Please enter the LETTER for the respective Column!" & Chr(13) & Chr(13)  _
_
& "DE: Bitten den BUCHSTABEN der gewünschten Spalte eingeben!"
Exit Sub
Case Else
On Error GoTo Hell
' Wenn Spalte vor H ausgewählt wird zum ausblenden --> Fehlermeldung
If Ws.Range(UCase(f) & ":" & UCase(f)).Column HIER FEHLT DER CODE DEN ICH BRAUCHE
Exit Sub
End Select
Hell:
Err.Clear
MsgBox "EN: The entered Column cannot be selected!" & Chr(13) & Chr(13) & "DE: Die  _
eingegebene Spalte kann nicht ausgewählt werden!" & Chr(13), vbCritical
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B5").Select
End Sub