使用命令按钮隐藏coulms

Question

我正在尝试使用命令按钮隐藏活动worksheet上的2列（＆＃34; J：K＆＃34;）。

隐藏列后，命令按钮会将活动工作表（＆＃34;网络服务＆＃34;）保存为PDF到桌面。

现在第二部分工作正常，但我似乎无法将列隐藏起来。

到目前为止，这是我的代码：

Private Sub CreatePDF_Click()

Columns("J:K").Select
Selection.EntireColumn.Hidden = True

Dim oSHELL As Object, sDesktopPath As String
Set oSHELL = CreateObject("WScript.Shell")
sDesktopPath = oSHELL.SpecialFolders("Desktop")
ChDir sDesktopPath
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sDesktopPath & "\" & Worksheets("Network Services").Range("D5").Value &
"-" & Worksheets("Network Services").Range("D7").Value & ".pdf",Quality:=xlQualityStandard _ 
IncludeDocProperties:=True, 
IgnorePrintAreas:=False, OpenAfterPublish:= _
 True
End Sub()

非常感谢任何有关如何隐藏列的帮助。